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MODULE INPS™B TLE sport symbiont’ 
= 


tT = 'v04-600' 
BEGIN 


' 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 
i DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


is THIS SOFTWARE IS cyan siee UNDER A LICENSE AND MAY BE USED AND gd 
ie og IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 


:* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
™ eORPORAT ion. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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3 lee 

3 i FACILITY: 

; Input symbiont. 

3 i ABSTRACT: 

; i This is it. 

3 i ENVIRONMENT : 

: VAX/VMS user mode. 

4 i 

" AUTHOR: M. Jack, CREATION DATE: 30-Apr-1982 

4 MODIFIED BY: 

4 ! v03-003 MLJ0115 artin ©, Jack, 29-Jul-1983 13:14 
ape Update for SsnpuBe file interface change. 
$08 ‘ vO3-002 MLJ0113 Martin L. Jack, 26-May-1983 10:21 
B22 } Complete implementation. 
098 ! V03-001 MLJ0112 Martin L. Jack, 29-Apr-1983 0:02 
005 Track SUBMIT enhancements and SJC name changes. 

05 lee 
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14-Sep-1 INPSMB.SRCJINPSMB.B32 (2) | 
; 057 1 LIBRARY 'SYSS$LIBRARY:LIB'; : 
; § 1 LIBRARY 'SYSS$LIBRARY:TPAMAC’; : 
; 059 REQUIRE 'SHRLIB$:JBCPRSDEF'; | ; 
; | “ 
3 139 1 3 
: 171 1 LITERAL | ; 
: 1% 1 RUE= .. | ; 
: 173 1 FALSE= 0: | ; 
: 174 1 | ; 
3 175 «1 5 
5 178 1 STRUCTURE i 
3 613 ! BBLO - 0,P,S,E;NJ= . 
: O19 1 (BBLOCK + 0)<P,S,E>;: : 
3 0180 1 § 
; 0181 1 ; 
: 1 ‘ 1 PSECT ; 
3 183 #1 CODE= CODE, 3 
; 0184 1 PLIT= CODE, ; 
: 0185 1 OWN= DATA. ; 
; 0186 1 GLOBAL= DATA: ; 
; 0187 1 3 
; 0188 #1 : 
; 0189 1 FORWARD ROUTINE ; 
; 0190 1 INPSMB ; 
; 0191 1 PROCESSING_LOOP_HANDLER, ; 
; O19¢ 1 PROCESSING-LOOP; ; 
> «85 Oly3 1 GET RECORD ; 
; 86 0194 1 IDERTIFY_COMMAND_VERB, ; 
:; 87 0195 1 GET_LINE~ CONTINUATION, : 
; 688 0196 1 TIMER AST: NOVALUE, : 
> 89 0197 1 FILE_ERROR: NOVALUE, F 
: 90 0198 1 MAINHANDLER_ACTION, ; 
: 91 0199 1 MAI*!~ HANDLER? ; 
3 92 B5p5 1 3 
3 93 0201 1 3 
; 694 fa4 1 EXTERNAL ROUTINE 3 
: 95 0203 1 CLISDCL_PARSE: ADDRESSING_MODE (GENERAL), F 
; 96 0204 1 CLISGET~VALUE: ADDRESSING MODE (GENERAL), : 
> 97 0205 1 CLISPRESEN ADDRESSING-MODE (GENERAL) , ; 
: 98 0 06 1 LGISVALIDATE: ADDRESSING MODE (GENERAL). ; 
> 99 0207 1 LIBS$SFREE1_DD: ADDRESSING-MODE (GENERAL). : 
: 100 0208 1 LIB$SIGNAL ADDRESSING MODE (GENERAL) . ; 
; 101 9209 1 LIBSTPARSE ADDRESSING-MODE (GENERAL) ; | ; 
..% ; 10 1 : 
: 10 111 : 
F 194 I 1 EXTERNAL | ; 
: 105 131 LIBS$AB_UPCASE: ADDRESSING_MODE (GENERAL), : 
: 106 bets 1 INPSMBCLD; ! Command tables ; 
: 107 15 1 | ; 
: 108 16 1 : 
: 109 17 1 EXTERNAL LITERAL ; 
: 110 18 1 INPSMB$_FACILITY, ; 
+ 411 19 1 INPSMBS$~ENTF IL : 
; 118 30 1 INPSMBS_ INVCONT | F 
; = INPSMBS_INVLOGF IL, ; 
> 194 0222 1 INPSMB$_INVPASS, : 
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symbiont 


INPSMB$_INVUSER, 
INPSMB$_JOBCARD 
INPSMB$-MISSPASS, 
INPSMB$_OPENUAF , 
INPSMB$_USERVAL; 
CARD CHANNEL: WORD, 
INPUT_FAB: SFAB_DECL, ' 
INPUT“RAB: $RAB~DECL, i 
INPUT—NAM: SNAM~DECL 
INPUT“RSA: VECTORENAMSC_MAXRSS BYTE), 
INPUT~UBF : VECTORC160,B9TEJ, 
OUTPUT_FAB: $FAB_DECL, i 
OUTPUT~RAB: $RAB-DECL. i 
OUTPUT"NAM: $NAM~DECL i 
OUTPUT~XAB: SXABPRO DECL, i 
OUTPUT"RSA: VECTORCRAMSC_MAXRSS ,BYTE 
JOB_LENGTH, 
JOB-BUFFER: VECTOR(80,BYTE), 
PUTMSG_ACTION_ROUTINE, 

GS: BBLOCKL4), 


FLAGS: 
INPUT COMPLETIONS 
CARD_TOSB_A: 


ee te ee 


ARD_TOSB_A: VECTOR 4 -WORDI, 
CARD“I0SB"B: + VECTOR(4. WORD). 
VALUE_DESC: LOCKCOSC$C_D/ BLN), 

LOG FILE DESC: BBLOCKCDSC$C~D~BLNI. 
DEST: LOCKCDSC$C_D-BLNJ, 

SERNAME _DESC: BBLOCKCDSC$C~D~BLN). 
PASSWORD-DESC: BBLOCKCDSC$C~D~BLNI. 
CURRENT _COMMAND; 

K_NONE= 0, 
K_JOB= ae } 
K"EQJ= 3; 
K~PASSWORD= 5; 
K_EFN_A= ‘ 
K"EFN7B= 2: i 
V_NO_LOG_FILE= 0,0,1,0 %, 
V~ SETOND~ BUF FER= 0.1,1.0 x: i 
V"TRAILING_BLANKS= 12.1.0 %: 


PERIODIC_INTERVAL = UPLIT(-150000000, -1); 


16 se 19 
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Channel to core reader 


NAM block for input 

! Resultant string for input 
Record buffers 
FAB for output 
RAB for output 
NAM block for output 
Protection XAB for output 


. | Resultant string ier output 


Length of JOB comman 

JOB command buffer 

Action routine for OPCOM or 0 
General flags 

Cards since timer expired 
First card I0SB 

Second card I0SB 
Qualifier value 

/LOG_FILE descriptor 
/NAME descriptor 

Username descriptor 
Password descriptor 
Current command 


! No significant command 
' JOB comman 

! EOJ command 

! PASSWORD command 


' EFN for first buffer 
' EFN f 


or second buffer 


/NOLOG specified 


! Second buffer has the read 
' Leave trailing blanks 


! 15 seconds 
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STATES: 
WSQUOTA'); 


KEYS: 
TRAILING. BLANKS’ 


TERISTICS", 


BIND %NAME('D 


EOJ“STATES: 
EOJ_KEYS: 
PASSWORD 
PASSWORD 
SDLAJ= 
AFTER® 
CHARAC 
MOVTC 
TESTBITCC; 
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ROUTINE INPSMB= 


lee 


FUNCTIONAL DESCRIPTION: 
This routine is the main entry point for the input symbiont. 


INPUT PARAMETERS: 
Standard activation parameters (not used). 


IMPLICIT INPUTS: 
NONE 


pole leolelololelololo) 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
Completion status. 


SIDE EFFECTS: 
NONE 


MPOPITORIP PORN NPoRNononononunofpopornofnoenoeny 
a ww ee er er er 
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A_DESC: VECT 
DV 1" DESC: VECT 
Ge IBVI LIST: BBLO 
10 CT 


' Device class 

' Descriptor for RSA 
' Descriptor for DvI 
' $GETDVI item List 
' 1/0 status block 

' Status return 

' Status return 
STATUS_ ' Status return 


DEVICE_NARE = SDESCRIPTOR('SYSSINPUT:"): BBLOCK; 
FP; 


a 


Bh 


BIND 
BUILTIN 
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Establish the condition handler. 
.FP = MAIN_HANDLER; 


Sess 
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Initialize RMS structures for the input stream. 
$F AB_INIT(FAB=INPUT FAB, 
FAC=GET 


FNA=UPLIT BYTE('SYSSINPUT:"), 
Fopstogs SYS$SINPUT:'). 


=$ r 


= INP 
SRAB INIT CRAB= INPUT _RAB, 
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NOUS wt 


Poreronory 


ieeken’ FAB, 
UBF = jnecr UBF, 


Get the physical device name of the input device. 
SPARSE (FAB =INPUT _F 

DESCtO = = CHERCHAR(I NPUT MARC HARST _ovI)); 
bvI- ~pESCh ANPUT. NANENAMST“D 


RSAW DEStet = = RSA; 


Execute a SGETDVI on the physical device. 


GETDVI_LIST 9.0.16.0 = 4; 
GETDVI-“LISTE2.0.16.0) = DVI$_DEVCLASS; 
GETDVI“LIST 4.0.32.0 = DEVCCASS; 
GETDVI“LIST(8,0,32,0] = 0; 
GETDVI“LIST(L12.0,16,0] = NAMSC_MAXRSS; 
GETDVI_LIST 19-8 48-8 = DVIS_BEVNAM; 
GETDVI“LIST 18.0, 0) = INPUT _RSA; 
GETDVI“LIST 20. 32.0] = RSA_ UES. 
GETDVI“LIST(24.0.32.0) = 0; 
STATUS-1 = $GETDVIW< 

10$B=10SB 

DEVNAM=DvVi_DESC 

EMS T=ee TDi List) 
IF NOT .STATUS_1 THEN RETURN .STATUS_1; 


Open the input stream, 
RO cna EQL DC$_CARD 
BEGIN 
: Set up to issue signalled messages to the card operator. 
PUTMSG_ACTION_ROUTINE = MAIN_HANDLER_ACTION; 


: ; Open the card reader. 
STATUS. .. - SASS 1GNCDEVHAR= DEVICE_NAME, CHAN=CARD_CHANNEL); 
IF NOT” .STATUS_2 
THEN 
SIGNA 


insnes FACILITY*16 + SHRS_OPENIN * STSSK_SEVERE, 
, RSA_BESC, 
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VO4 02080 , 12-8 08-1 obec 94:48:92 INPSMB” SR RCJINPSMB.B32: ° (3), 

; 3 435 .STATUS_2); ; 
3 6 r § INPUT_NAM NAM$B_RSLJ = .RSA_DESC(O); ; 
3 1 4 8 é 
3 ¢ $73 } Set up the periodic timer. : 
: : stg SSETIMR(DAYTIM=PERIODIC_INTERVAL, ASTADR=TIMER_AST); : 
; 44 ; 
; ? tee Start a read in the first buffer. 5 
; } : 
; 9 P rr: STATUS 3s perc P} 
: 40 P 044 FR=K $ 
> 341 P 0448 FUNC=TO$ NREADLBLK. ; 
$ rh} P 0449 CHAN=.CARD_CHANNEL, ; 
3 4 P 0450 10SB=CARD D_TOSB_A, ; 
> 344 P 0451 Pi= NPUT_OBF, : 
: 45 preg P2=80); 3 
; 346 045 IF NOT oe tAtus 3 : 
: 47 0454 F 
; 48 Beee FILE_E 3 
H 49 456 TNPshes FACILITY*16 + SHRS_READERR + STSSK_SEVERE, 3 
3 50 0457 INPUT_F 3 
: 351 0458 .STATOS_ 35; ; 
3 26 0459 END 3 
3 5 0460 ELSE ; 
3 54 0461 BEGIN 3 
3 55 046 3 
: 56 046 ' Access the file with RMS. g 
3 57 0464 ! 3 
; 58 0465 4 IF NOT SOPEN(FAB=iNPUT_FAB) : 
3 59 0466 THEN 3 
3 0 0467 FILE_E 3 
; rt Bees ThPshes FACILITY*16 + SHRS_OPENIN + STSSK_SEVERE, : 
; es 9670  INPUT_FABLFABSL_STS], .INPUT_FABLFABSL_STV]); : 
3 65 047 3 
3 047 4 IF NOT SCONNECT(RAB=INPUT_RAB) 3 
3 367 0474 : 
4 68 0475 FILE_E 3 
4 44 bens Theses FACILITY*16 + SHRS_OPENIN + STSSK_SEVERE, : 
: 371 047 . INPUT_RABCRABSL_STSJ, .INPUT_RABLRABSL_STV); | ; 
> 37 047 END; | ; 
3 7 0480 | 3 
: 74 481 3 
3 Le Bee Initialize descriptors for dynamic strings. : 
3 7 Bee VALUE _DESCCOSCS$B_ case = DSCSK_CLASS fi 3 
3 78 0485 LUE~ “DESCCDOSC$B_DTYPE) = DSCSK_ “DTYPE_T 3 
: 79 048 VALUE-DESC DSCSW7LENGTH] | = 0; 3 
: 380 487 ¢ VALUE_DESCLDSCSA_POINTER] = 6; : 
3 8 489 LOG_FILE_DESC pscee CLASS] = DSCSK_CLASS_D; 3 
2 8 90 LOG _FILE_DESCLDSC$B_DTYPE) = DSCSK_DTYPE_T; 5 
3 84 0491 LOG FILE DESCCDSC$W LENGTH) = 0; 3 
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-TITLE INPSMB Input symbiont 
“IDENT AvOReDOOW 


.PSECT DATA,NOEXE,2 | 
00000 CARD_CHANNEL : 
0002 “BLKB | 
0004 INPUT FAB: i | 
00054 INPUT_RAB: 


.B 68 
00098 INPUT_NAM: 


H Be re 4 LOG_FILE_DESCCDSCSA_POINTER] = 0; ; 
: 494 NAME _DESCCDSCS$B_CLASS] = DSCSK_CLASS_D; ‘ 
; 495 2 NAME-DESC(DSCS$B-DTYPE) = DSCSK-DTYPE=T; ; 
; 38 496 ¢ NAME_DESCEDSCSW_LENGTH] = 0; : 
: 390 49 NAME -DESCLDSCSA-POINTER) = 0; : 
3 4 199 USERNAME _DESC pecee.cLAssd = DSCSK_CLASS_D; : 
; 280 USERNAME _DESCLDSCSB_DTYPE) = Ogre SIPC : 
; 394 1 USERNAME _DESCLDSCSW_LENGTH) = 0; ° 
: 395 050¢ USERNAME _DESCLDSCSA_POINTER) = 0; | : 
: 39 $804 PASSWORD_DESC pees CLASS = DSCSK_CLASS_D; ‘ 
; 398 B20? PASSWORD _DESCLDOSCSB_DTYPE) = DSCSK_DTYPE_T; . 
; 4 206 PASSWORD _DESC(DSC$W_LENGTH) = 0; : 
: 4 05 PASSWORD-DESCLDSCSA_POINTER) = 0; : 
: 401 0508 | ; 
; rey Fat ‘ 
; ret Bato | Loop to process all jobs in the input stream. : 
; 405 Belg UNTIL PROCESSING_LOOP() DO 0; : 
; 406 051 ; 
; 407 0514 ; 
; 408 0515 ! Close the input stream. ‘ 
; 409 0316 i : 
; 410 051 IF .CARD_CHANNEL EQL 0 | : 
; 411 b218 TH : 
: tig 051 IF NOT SCLOSE(FAB=INPUT_F AB) : 
3 461 0520 H : 
3 414 0521 FILE_ERROR( : 
; oi? 8 3 TNPSMBS FACILITY*16 * SHR$_CLOSEIN + STSSK_SEVERE, : 
: 7 05 4 . INPUT_FABCFABSL_STSJ, .INPUT_FABLFABSL_STYJ); | ; 
3 419 0526 : 
: 420 0527 ! Exit the symbiont. : 
; $21 0528 : | : 
; 4 § b283 SS$_NORMAL : 
3 4 0530 1 END; : 
> INFO#250 L1:0618 Sa : 
; Referenced LOCAL symbol DEVCLASS is probably not initialized : 


SS 
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1a-sep-19 4 94:43:82 INPSMB_SRC1'NPSMB_B32; OOF «35 | 
OO00F8 INPUT_RSA: | 
.BLKB 255 
or? "BLKB 1 
O1F8 INPUT_UBF : 
.B 160 
00298 OUTPUT FAB: as 
002E8 OUTPUT_RAB: 
.BL 68 
0032C OUTPUT_NAM: ne 
0038C OUTPUT_xAB: 
.BLKB 88 
003E4 OUTPUT_RSA: 
-BLKB 255 
004E3 *BLKB 1 
004E4 JOB_LENGTH: : 
004E8 JOB_BUFFER: 
-BLKB 80 
00538 PUTMSG_ACTION_ROUTINE: 
<BLKB” 4 
0053C FLAGS: ‘{BLKB 4 
00540 INPUT _COMPLE TIONS: 
00544 CARD_10SB_A: : 
0054C CARD_10SB_B: , 
00554 VALUE_DESC: . 
0055C LOG_FILE_DESC: : 
00564 NAME_DESC: is 
0056¢ USERNAME DESC: . 
00574 PASSWORD_DESC: : 
0057C CURRENT_COMMAND : 
-BLKB 4 
PSECT CODE,NOWRT,2 
00000 P.AAA: .LONG -150000000, -1 ; 
0008 P.AAC: .ASCII \P1\ : 
OOOA “BLKB 
900¢ P.AAB: .LONG ; 
01 “ADDRESS P.AAC : 
014 P.AAE: <ASCII]  \AFTER\ : 
019 “BLKB 
1¢ P.AAD: LONG : 
99 “ADDRESS P.AAE : 
4 P.AAG: ASCII \CHARACTERISTICS\ : 
3 -BLKB 1 
P.AAF: <:LONG 15 : 
0038 “ADDRESS P.AAG : 
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OorelOonows 


P.AAH: 
P.AAK: 
P.AAJ: 
8 P.AAM: 
P.AAL: 
at 
P AAP: 
PAAR: 
PIAAT: 
P. AAW: 
P.AAV: 
eAAY: 
-AAX: 
- ABA: 
eAAZ: 


ABC: 
- ABB: 


- ABE: 
- ABD: 
-ABG: 
P.ABF: 
P.ABI: 
P.ABH: 
P.ABK: 
P.ABJ: 


P.ABM: 
P.ABL: 


wv 


ce ie 


pa19be 12:85:95 


P.AAI: 


AX-11 gd pte V4.0-74 
INPSMB.SRCJINPSMB.B32; 
eASCII \CLIN 
-BLKB 
- LONG 
»ADDRESS P.AAI 
sASCII = \CPUTIME\ 
-BLKB 1 
» LONG ‘. 
ADDRESS P 
“ASCII \DELETEN 
-BLKB é 
LONG 
«ADDRESS P.AAM 
*ASCII = \HOLD\ 
«LONG 4 
eADDRESS P.AAO 
sASCII = \KEEP\ 
LONG vn 
«ADDRESS P 
Ty \LoG FILE\ 


LON 

ssh P.AAS 
rea \NAME \ 

ONG 4 

»ADDRESS P.A 
rey \NOrIFY\ 
“CON NG °. 

«ADDRESS P 

ty \PARARE TERS\ 

-LONG 10 

-ADDRESS P.AAY 

eASCII = \PRINTER\ 

-BLKB 1 

-LONG 7 

»ADDRESS P.ABA 

eASCII \PRIORITY\ 


«LON 
-ADDRESS P.ABC 
ty \QUEUE\ 


-BLK 

- LONG 

-ADDRESS P.ABE 

eASCII = \RESTART\ 

-BLKB 1 

one . 
ADDRESS P.ABG 
ASCII \TRAILING _BLANKS\ 

-BLKB 1 

LONG 15 

ADDRESS P.ABI 

“ASCII \WSDEFAULT\ 

-BLKB 

LON 


“ADDRESS P.ABK 
“ASCII \WSEXTENT\ 
“LONG «68 
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v04-000 ire 
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41 54 4F 55 hae} ie 


Suns 
so 
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> 4) 4s a ss st a 


1b-se Sep-1984 AX-11 Bliss-32 V4.0-74 
1 ~300n 138% 9}: 8: $2 tNPSMB™ SROTINESMB, B32; 
8. -ADDRESS P.ABM 
cP -ABO: <ASCII  \WSQUOTA\ 
4 -BLKB } 
44 P.ABN: LONG 
48 “ADDRESS P.ABO 
4C P.ABQ: . ASCII \SYSSINPUT:\ 
RP -BLKB 2 
P.ABP: .LONG 10 
? “ADDRESS P.ABQ 
60 P.ABR: .ASCII \SYSS$INPUT:\ 
PERIODIC. INTERVAL= P.AAA 
P.AAB 
D"AFTER= P- AAD 
D- ~CHARACTERISTICS= P.AAF 
D“CLI= P. AAH 
D-CPUTIME= P- AAJ 
D"DELETE= P-AAL 
D-HOLD= P.AAN 
0“ KEEP= P. AAP 
D“LOG_FILE= P.AAR 
D_NARE® P.AAT 
D“NOTIFY P. AAV 
D"PARA AMETERS= P.AAX 
D"PRINTER= P.AAZ 
D“PRIORITY= P.ABB 
D"QUEUE= P.ABD 
DIRESTART = P.ABF 
D“TRAILING_BLANKS= P.ABH 
D"WSDEFAULT= P.ABJ 
D“WSEXTENT= P.ABL 
0“ WSQUOTA= P. ABN 
DEVICE _NAME= P. ABP 
SRMS_PTR= INPUT_FAB 
$RMS~PTR= INPUT~RAB 
$RMS~PTR= INPUT~NAM 
.EXTRN CLISDCL_PARSE, C ISceT xAtue 
“EXTRN CLISPRESENT, LGI ATE 
-EXTRN LIBSSFREE1_0D TBSSIGNAL 
*EXTRN LIBSTPARSE, LiBsaB -UPCASE 
“EXTRN INPSMBCLD IN NPSMBS F ACILITY 
-EXTRN INPSMBS$_ENTF INPSMB$_INVCONT 
“EXTRN INPSMBSINVLOGE IL 
*EXTRN INPSMBS_INVPASS 
*EXTRN INPSHB MBS“ INVUSER 
-EXTRN INPSMB$~JOBCARD 
XTRN INPSMBS$~MISSPASS 
[EXTRN INPSMB ~OBENUAF 
TEXTRN INPSMBS$~U VAL 
“EXTRN IYSSPARSES evs GETD vi 
“EXTRN SYSSASSIGN, SYSSSETIMR 
“EXTRN SYS$Q10, SYS OPEN 
“EXTRN SYSSCONNECT, SYSSCLOSE 
00 INPSMB: .WORD Save R2,R3,R4,R5,R6,R7 
4 MOVAB FILE_ERROR, R? 
0 MOVAB $RMS"PTR, R6 


row 


SS ; 


J 6 
Input symbiont 16-Sep-19 AX-11 Bf s$-32 V4.0-74 Page 12) 
14-Sep 71382 93; 48: $2 INPSMB.SRCJINPSMB.B32; ° (3) | 
5E 38 C2 oc SUBL2 #56, SP : 
6D 0000v i E F MOV MAIN_HANDLER, (FP) : 0366 
00 bE 0 ¢ 1 movcS #0, TSP), #0, #80, SRMS_PTR : 0376) 
66 $008 BF BO O0I¢ OVW #20483, SRMS_PTR = 
06 Ab 4 F 9A 00021 MOVZBL ; 4, SRMS_PTR+4 : 
16 Ab 20 5 OVE #2, SNS. PIR® 2 : 
1F Ab 0 3 A MOVB #2, $RMS~PTR+31 : 
8 Ab 0094 C6 9E E MOVAB INPUT_NAM, S$RMS_PTR+40 : 
C Ab BF AF 3 0 MOVAB P.ABR> sris PTRT44 : 
4 A OA 9 9 MOVB. #i0, $RMS_PTR+52 : 
00 6E - 00 2c 3 MOVCS #0, (SP),"#0, #68, $RMS_PTR + 0381 
50 Ab 4401 F BO 00046 MOVW #17409 SRMS_PTR : 
34 Ab 0200 F 3C 0004 MOVZWL + SRNS PTR+4 : 
0 Ab 5 F 98 0005 MOVZBW #80, *$RMS_PTR+32 : 
74 Ab O01F4 C6 9E 0005 MOVAB INPUT atts SRMS -PTR+36 : 
008c 866 66 9E 00050 MOV INPUT FAB, $RMS~PTR+60 : 
00 6E 00 2¢ BO06¢ MOVC #0, (SP), #0, 396. PRRs _PTR ; 0386 
094 C6 0006 : 
0094 C6 6002 8F B0 9006¢ MOVW #24578. SRMS_PTR : 
0096 66 01 BE 0007 MNEGB Of] PTRT : 
0098 6 00F4 C6 9E 00078 MOVAB INbut™ RSK SRMS_PTR+4 : 
O09E C6 01 BE 0007F MNEGB #1, S$RMS PTR+ : 
0OAO «C6 O0F4 £6 9E 00084 MOVAB _INPUT_RSA, SRMS _PTR#+12 : 
6 DD 00088 PUSKL > 0391 
000000006 00 01 FB 90080 CALLS SYSSPARSE F 
é 0OA8 C6 9A 00094 MOVZBL Tnbut NAM+20, DVI_DESC : 039 
C AE 0OA9 C6 9E OO09A MOVAB INPUT “NAM+21, DVI-DESC+4 : 039 
30 AE 04 0009 CLRL RSA > 0394 
34 AE O0F4 C6 i 000A MOVAB NPgr RSA, RSA_DESC+4 : 0395 
OC AE 00040004 F DO 090A9 MOVL 16 128, GETDVY_LIST 3 0400 
10 AE 6— 9E 90081 MOVAB DEV CLASS AS 30 DVI_LIST+4 : 040 
14 AE D4 00085 CLRL GETDY bist +8 : 040 
18 AE OOZOOOFF 8F DO 00088 MOVL @# 09740 GETDVI_LIST+12 + 0404 
1C AE 00F4 C6 9E 000C0 MOVAB INPUT GETDVY_LIST+16 : 0406 
20 AE 30 AE 9E 000C6 MOVAB A DESe ,GETDVI_CIST+20 : 0407 
24 «OA b4 00CB CLRL cerBV “List+ : 0408 
7E 7C OOOCE CLRO : 0412 
7E D4 00000 CLRL mts} ; 
10 AE OF 9008 PUSHAB 10S : 
1C AE 9F 000D PUSHAB GETDVI_LIST ; 
3C «= AE «OOF 00008 PUSHAB DVI_DESC F 
7E 7C 00008 CLRQ.=(S : 
000000006 00 Q re 00DD CALLS #8 Susseerpviv ; 
01 E O0E4 BLBS  STATU + 0413 
4 000E7 RET ; 
00000041 = 8F 6E 01 OES 1$: CMPL veiass, #65 : 0418 
7A 12 OOOEF BNEQ : 
0534 C6 0000v CF 9 OF1 MOVAB MAIN_HANDLER_ACTION, PUTMSG_ACTION_ROUTINE ; 0424 
& 7¢ Org CLRQ. = = (SPJ : 0429 
FC AG OOF FA PUSHAB CARD_CHANNEL : 
FEED CF 9F OOOFD PUSHAB ; 
000000006 00 4 FB 101 CALLS SYS$AS IGN : 
14 0 F 108 BLBS st TATU 5.3. 28 : 0430 
pp ot B PUSHL STAT ii > 0435 
34 AE 9F 00100 PUSHAB RSA_ bese : 0432 
| 
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PNW FB NOM WOM OM WM OOM DOOMNY NO FS OWN MOVIWNO OvV1NW1V1IOO FWVO NOW NNONOO NP OOO 
POM AD POOP MAMA MAMA ME MAAO MAS MAA O HA NWMAOON SO SOMO MMM SM HMM & 
WINS OM MOCO SCFT9F 99909 BOF NIM NOV NM HOS] MOVCOM OWS OVOOVNV "SO OOTCVO"OSO 


STOWQONMNOD SFOLOLOL OL ODOT FOO *WOO TOW -DOVCVTDWONOO Oo *POOWML LOWVSO 


OOoOQooooooooooooooooQooooooooooooooooOoOOOOCOOO OOOO OOOO OOOOOOO 


COOOCOCOCOOOOOSOCSOOCOSOSSSSSEOOSOSOSSOSOSOSCOSOCOOSOSOOOSOOSOSOOSOOOCOOOOOOOOOOOO 


CODMVMOMDOW™MAMWOWIM OM 


3 eats ri 01:43:53 AX-11 Oh lego V4.0-742 


INPSMB.SRCJINPSMB.B32; 1 


#1 
#<<<INPSMBS_FACILITY816>+4248>+4> 
#4, LIBSSIGRAL 

RSA DESC, INPUT_NAM+3 


-(SP) 

TIMER_AST 

PER OBIC_INTERVAL 
S 


#4, SYSSSETIMR 


(§p) 
) 


-(SP 
#80, =(SP) 
iNPOT UBF 


CARD_10SB_A 
CARD_CHANNEL, (SP) 
w2 erg 


~ 
“wwseun 
ve-m ow 


STATUS_3, 5$ 
STATUS ~ 
R6 


#<<<INPSMBS_FACILITY8@16>+4272>+4> 
3. FILE_ERROR 


R6 

#1, SYSSOPEN 

INPUT_FAB+8, (SP) 
M<<<INPSMBS$_FACILITY@16>+4248>+4> 
#4, FILE_ER 


INPUT_R 
#1, SYSSCONNECT 

INPUT _RAB+B, -(SP) 

#<<<INPSHBS FACILITY@16>+4248>+4> 
#34471938, VALUE_DESC 

VALUE + 

#34d7T9 6. LOG FILE _DESC 

PAL &, NAME_DESC 

NAME _DESC+4 

#34471936, USERNAME DESC 


USER 
Aeri9 5, PASSWORD_DESC 


PASSWORD DESC +4 

#0, PROCESSING_LOOF 
RO, 6$ 

CARD _CHANNEL 

i 

#1, SYSSCLOSE 

RO 

INPUT_FAB+8, =(SP) 


Pee Se Se Se Se Se Se Se Ge Se Ge Se Ge Se Ge Se Ge Ge Se Se Fe Fe Se Se Se Se Be Be Se Be Be Be Be Se Be Be Se Be Be Se Be Be Be Se Be Se Be Be Se Be Se Se Be Be Be Se 


0452, 


W040 ea oars 1ESS0c198° 24:38 UiNesna: SRS INPSMB 030; an 


6 DD PUSHL R6 : 0521, 

? 00000000* 4 pp tat oe<<]nPsnes PACILETYSIED 9ST 7E>04> : 522 

85 : 06 B 7s: move wit RO 0530 
RET 


; Routine Size: 527 bytes, Routirxe Base: CODE + 016A 


M _ oe 
INPSMB Input symbiont 16-Sep 1: AX-11 Oi isg 32 v4.0-74 
v04=000 re or8eb- 1382 93:98:38 Ep gme Res inesno o35, 
; : 5 1 ! ROUTINE PROCESSING_LOOP_HANDLER(SIG,MCH)= 
; 6 : : 1 44 
: 428 & 1! 
; 429 5 1. ! FUNCTIONAL DESCRIPTION: 
; ? , 5 $ : This is a condition handler for routine PROCESSING_LOOP. 
: 4 é §2 8 1 ( INPUT PARAMETERS: 
; 2 t 8273 : Standard VMS condition handler parameters. 
: 435 0541 1 | IMPLICIT INPUTS: 
eB 
; 438 0544 OUTPUT PARAMETERS: 
: 440 0546 1 | 
; Pre: beeg ! satiate ili 
; 108 0549 1: 
i By | sorte eu 
> 446 093¢ 1! 
Be Ba age 
: 449 0555 1: 
; 450 bee$ 1 !-- 
3 «6451 0557 1 
3 +26 0558 2 BEGIN 
; 45 0559 MAP 
3 454 0560 SIG: REF BBLOCK, ! Signal parameters 
: rh 3 bee) po, : REF BBLOCK; ! Mechanism parameters 
: rt t4 0368 aie ties COND: BBLOCK(4); ! Status value 
: 459 0565 , 
> 460 0566 CALLG; 
; 461 0567 
; 466 0568 ; 
; ret b295 Get the condition that was signalled. 
; 465 571 COND = .SIGCCHFSL_SIG_NAMEJ; 
: 467 258 
: 468 374 JF COND NEQ SS$_UNWIND 
> 470 0576 BEGIN 
3; «6471 Beet 
3 $76 B28 Downgrade the severity of any message issued to error. 
: ore 280 if -CONDCSTS$V_SEVERITY] EQL STSS$K_SEVERE 
; one 338 NBBLOCKCSIGECHFSL _SIG_NAME], STSSV_SEVERITY] = STSSK_ERROR; 
: 478 584 
3 rth Ht : Call the main handler to issue the message. 
: 481 3B CALLG(.AP, MAIN_HANDLER); 
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N 6 | 
symbiont 16-Sep-1984 01:43: AX=11 Bliss-32 V4.0-742 Page 16 
1 ~3007} 38% 94:43 '82 INPSMB.SRCJINPSMB.B32;1 ° (4) 
If the message is an error status, clean up the current job. 
IF NOT .COND 
THE 
? BEGIN 
2 Close and delete the command procedure file if it is open. 
4 IF .OUTPUT_FABCFABSW_IFI] NEQ 0 
4 THEN 
5 BEGIN 
; OUTPUT_FABCFABSV_DLT] = TRUE; 
SCLOSETFAB=OUTPUT_FAB); 
4 END; 
4 
? Unwind to the caller of PROCESSING_LOOP with a false value. 
4 MCHCCHFS$L_MCH_SAVROJ = FALSE; 
4 SUNWIND(); 
3 END; | 
; END; | 
$S$_CONTINUE 
1 END; 
.EXTRN SYSSUNWIND 
0004 00000 PROCESSING_LOOP_HANDLER: 
-WORD “Save R2 3; 0531 
50 04 AC 00 00002 MO SIG, R ; 0571 
52 04 AO DO 00006 movL  4(R6), COND ; 
00000920 = BF 52 D1 OOO0A CMPL OND, #2336 3 0574 
3c «(13 Baer BEQL 5 
52 03 00 € oh CMPZV #0, #3, COND, #4 ; 0580 
88 12 0001 BNEQ : 
00 02 FO QOO1A INSV #2, #0, #3, 4(RO) : 0582 
0000v CF 6¢ FA 00020 1$: CALLG (AP), MAIN-HANDLER : 0587 
27 a BR 3 BLBS COND, 3 ; 9238 
0000' 4 ; 0 : Ui PTPUT _FAB+2 ; 059 
0000° CF 80 =8F 4 $6 E BISB2 #128, OUTPUT_FAB+5S : 0601 
0000' CF 9F 00034 PUSHAB OUTPUT FAB ; 0602 
00000000G 00 01 FB 88 & CALLS #1, SYSS$CLUSE 3 
50 08 AC DO OOOSF 2$: MOVL MCH, RO 3 0608 | 
OC AD D4 90045 CLRL =: 12 (RO) ; | 
7 C 46 CLRQ -(SP) ; 0609 | 
000000006 98 6 Fe 48 CALLS #2, SYSSUNWIND r 
4F 3%: MOVL #i, RO 3; 0615 
4 52 RET 5 
} 


83 bytes, Routine Base: CODE + 0379 


ep-19be 19:38:58 


? 
“$ 
“5 


i 


Input symbiont 


pvabtent 1$- A ote 71984 0}: $3: 33 AX-11 B ah atte! V4.0-742 Page iB 


04-000 14-Sep- INPSMB. INPSMB.B32; 1 

1 } ROUTINE PROCESSING_LOOP= : 

§ 1 te ; 

4 ii : 

5 1! FUNCTIONAL DESCRIPTION: 3 

§ . | This routine implements the main control sequencing for the input ; 
HM : } symbiont. ; 

9 1 ! INPUT PARAMETERS: ; 

5 : NONE | ; 
¢ 1 ! IMPLICIT INPUTS: - 

? : } NONE ; 

5 1 ! OUTPUT PARAMETERS: ; 

5 $ 1! NONE ; 
5 1! 3 
528 1 ! IMPLICIT OUTPUTS: : 
529 1! NONE : 
530 1! $ 
531 1 | ROUTINE VALUE: | : 
é ¢ : } NONE 3 
534 1 ! SIDE EFFECTS: : 
535 1! NONE : 
536 1! 3 
537 1 l= ; 
538 1 3 
539 BEGIN é 
540 PARSE_GLOBAL_REGISTERS; $ 
541 LOCAL : 
262 ITEM_BUFFER: § BBLOCK(2048], ! $SNDJBC item buffer ; 
54 DATA_BUFFER: BBLOCK(L2048), i $SNDJBC data ee 3 
544 UAF BUFFER: BBLOCKCUAFSC_LENGTH], ' UAF record for us F 
545 DESC: ECTORC2], i Descriptor for UAF “buffer : 
546 DNA_BUFFER: VECTORCNAMSC_MA XRSS BYTE], : “Default filename : 
547 DNA DESC: CTORC2), ‘Descriptor for DNA buffer 3 
548 2 10 VECTORE4 ,WORD), ! $SNDJBC status block ; 
549 LINE DESC: BBLOCK Décse _5.BLNJ, | Descriptor for command : 
550 STATOS_1 i Status return ; 
551 STATUS 2: ! Status return ; 
226 BUILTIN ; 
55 FP; 3 
554 3 
555 3 
228 H Establish the condition handler. : 
558 -FP = PROCESSING_LOOP_HANDLER; : 
885 | 
30) Initialize for command parsing utilities. : 
268 PARSE GLOBAL. INIT( 3 
286 ITURSOR ITEM pur FER, 3 
65 DCURS R= ls Abs FFER PY 
566 MESSAGE= INPSMB$ _FACILITY*16 OR SHR$_BADQNAME OR STSSK_SEVERE, : 
567 VALUE _DESC= VALUE at at 3 


epee mene nanan ineneenannmnsteanteenetn pare 


a 7 
at woe ECSESBBE QUAEGE Wade Meyi8t: Bi vn 


: 568 673 

3 69 674 

: oy of? } Read the input stream searching for a /0B command. 

; i ei? UNTIL = CURRENT. COMMAND EQL K_JOB DO 

: 374 ore IF NOT GET_RECORD() THEN RETURN TRUE; 

; fe ce CURRENT _CORMAND = IDENTIFY_COMMAND_VERB(FALSE, LINE_DESC); 

: 57 0 ‘ 

3 78 ° ; 

: 4 : Save the JOB command for error messages. 

: 581 686 JOB_LENGTH = .INPUT_RABCRABSW_RSZ); 

; 28¢ 0687 CHSMOVE(.JOB_LENGTH> .INPUT_RABCRABSL_RBFJ, JOB_BUFFER); | 
: 584 0689 | 
; 385 0690 ! Parse the JOB command. 

; 586 0691 i 
; 587 069 CURRENT_COMMAND = K_NONE; 

; 588 069 CLISDCLPARSE(LINE_BESC, INPSMBCLD, 0, GET_LINE_CONTINUATION); | 
Re 
: 39) 343 } Free dynamic strings to ensure that jobs do not interfere with one another. 

; 238 0698 2 LIBSSFREE1_DD(VALUE_DESC); 

; 594 0699 2 LIBSSFREE1—DD(LOG FILE DESC); 

: 595 0700 LIBSSFREE1_DD (NAME ); 
; 596 0701 LIBSSFREE1_DD(USERRAME_DESC); 

: 597 070¢ LIBSSFREE1—DD (PASSWORD DESC): | 
; 598 070 | 
; 599 0704 

; 600 0705 ! Get the parameter, which is the username. 
; 601 0706 i | 
: 60 0707 2 CLISGET_VALUE(D_P1, USERNAME_DESC); 

: 603 0708 ¢ IF -USERNAME _DESCCOSC$W_LENGTH) GTRU 12 | 
: 605 0710 SIGNAL (INPSMBS$_INVUSER, 1, USERNAME_DESC); 

> 606 0711 

: 607 Orig 

; t's Bpiz Get the /QUEUVE qualifier. 
: 610 0715 2 PARSE_CALL(QUEUE, D_QUEUE, SJC$_QUEUE, SDESCRIPTOR('SYSSBATCH')); 

; 611 716 Q_MESSAGE = INPSMBS-FACILITY*16~+ SHRS_INVQUAVAL + STSSK_SEVERE; 

: gig 0718 

: 614 0719 ! Get the /AFTER qualifier. 

: 615 0720 i 

: 616 0721 PARSE_CALL(AFTER, D_AFTER); 

+ 617 07 é 

: 618 7 

s £20 Bf : Get the /CHARACTERISTICS qualifier. 

; 6 i 07 $ PARSE_CALL(CHARACTERISTICS, D_CHARACTERISTICS); 

Be BR © 

3; 626 0729 ! Get the /CLI qualifier. 
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; 625 730 : ; 
: ? $ f 1 PARSE _CALL(FILENAME, D_CLI, SJC$_CLI, SJC$_NO_CLI); “ 
: 628 7 : | : 
: ? , 4 : } Get the /CPUTIME qualifier. : 
: 6 1 $ PARSE_CALL(CPUTIME, D_CPUTIME, SJC$_CPU_LIMIT, SJC$_NO_CPU_LIMIT); | : 
: 833 0738 | ; 
3 ? ¢ 159 Get the /DELETE qualifier. | : 
3 6 974] PARSE_CALL(IF_TRUE, D_DELETE, SJC$_DELETE_FILE); : 
: 638 0748 ; 
3; 639 0744 ! Get the /HOLD qualifier. 3 
; 6460 0745 ! : 
3 641 0746 PARSE_CALL(IF_TRUE, D_HOLD, SJC$_HOLD); ‘ 
3 ote 0747 F 
; 64 0748 3 
3 644 0749 ! Get the /KEEP qualifier. : 
> 645 0750 ! ; 
> 646 0751 PARSE_CALL(IF_TRUE, D_KEEP, SJC$_NO_LOG_DELETE); 3 
; 667 8726 : 
3 648 075 ; 
; 649 0754 ; Get the /LOG_FILE qualifier. ‘ 
; 650 0755 ; 
; 651 0756 6 VALUE _ DESC = LOG _FILE_DESC; | : 
; O36 14d FCAGSCV-NO_LOG_FILE] = PARSE_CALL_VALUE(LOG_FILE, D_LOG_FILE); | ; 
: 654 0759 | 
; 655 0760 Get the /NAME qualifier. : 
: 656 0761 | : 
3 657 0768 Q_ VALUE_DESC = NAME_DESC; ; 
: 658 076 a yaL CALL(NAME, D_RAME); 

: 659 0764 Q_VALOE_DESC = VALOE_DESC; 

; 660 0765 

; 661 0766 

3 66¢ 0767 ! Get the /NOTIFY qualifier. | 

; 66 1594 : 

3 664 769 2 PARSE_CALL(IF_TRUE, D_NOTIFY, SJC$_NOTIFY); | 

: 665 0770 | 

: 666 0771 

; rot 0 % : Get the /PARAMETERS qualifier. 

: 669 £ rs PARSE_CALL (PARAMETERS, D_PARAMETERS) ; 

: 671 8 76 

; O76 A : Get the /PRINTER qualifier. 

: 67% 4: PARSE_CALL(PRINTER, D_PRINTER); 

; 676 ei 

3 67 § Get the /PRIORITY qualifier. 

: er 5 PARSE_CALL(PRIORITY, D_PRIORITY); 

; re 0786 
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984 
} Get the /RESTART qualifier. 
PARSE_CALL(IF_TRUE, D RESTART, SJCS_RESTART); 


! Get the /TRAILING_BLANKS qualifier. 
FLAGSLV. TRAILING BLANKS] = CLISPRESENT(D_TRAILING_BLANKS) ; 


Get the /WSDEFAULT qualifier. 
PARSE_CALL(WORKING_SET, D_WSDEFAULT, SJC$_WSDEFAULT, SJC$_NO_WSDEFAULT); 


Get the /WSEXTENT qualifier. 
PARSE _CALL(WORKING_SET, D_WSEXTENT, SJCS_WSEXTENT, SJCS_NO_WSEXTENT); 


Get the /WSQUOTA qualifier. 
PARSE_CALL(WORKING_SET, D.WSQUOTA, SJC$_WSQUOTA, SJC$_NO_WSQUOTA) ; 


; Read the input stream for a PASSWORD command. 

if NOT a3 RECORD () THEN RETURN TRUE; 

CURRENT COMMAND = IDENTIFY COMMAND VERB(TRUE, LINE_DESC 

IF REURRENT _ COMMAND NEQ K_PASSWORD” THEN SIGNAL (INPSMBS “ni SSPASS) ; 
Parse the PASSWORD command. 


CLISDCL_PARSE(LINE_DESC, INPSMBCLD, 0, GET_LINE_CONTINUATION) ; 


! Get the parameter, which is the password. 


cL1SGer VALUE (D_P1, PASSWORD_DESC); 
PASSWORD_DESCCOSCS$W_LENGTH) GTRU 31 


N 
SIGNAL CINPSMBS_INVPASS, 1, PASSWORD_DESC); 


' Validate access to the specified username and password. 


al 
IF .STATUS_1 G 
THEN 


EQ 0 
N STGNAL(INPSMBS_OPENUAF, 0, .STATUS_1) 
ELSE 1 GNAL (INP S 


MBS ~USERVALS ; 
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IF NOT .FLAGSCV_NO_LOG_FILE) 
THEN | 
BEGIN | 
Compute the log file default name string. 


oN DNA-DESCEIS = bak oereee om BUFFER); 
= DNA_BUFF 
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“VEDESCRIPTOR(* CAC. 08"? 
DNA_ 


vuvuvU 


DNA 
UAF Bor eocuarst.p Dev} 
UAF “BUF FERCUAFS j; 


PUPP & 


OODNGA NEW 0 ODN NEW SOOO VNOUSE 


Compute the log file specification. 


PARSE CALL (NAME AND_LOG_FILE, 
CoG _FILE~DESC 
* DNA mittee INPSMBS$_IAVLOGF IL); 


SQN 
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ay 
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| 
| 
| 
Compute the command file default name string. 
BUA DESEED) = BALEGAEOM.srren 
| 

eapggern ac ncoeaten.c, | 

| 

| 

| 
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~BuFER UAF$T 1 pEFDEY} 

UAr “BUF FERCUAFS$T~DEFDIRI); 
Create the output command file. 
Srp INIT (FAB=OUTPUT _FAB, 

BNA=.DNA_D stl }: 

DNS= - DNA DESC 0 

FAC=PUT, 

FNA=.NAME_DESCCDSCSA_POINTER], 

ENS= NAME ~DESCLDSCS$W~LENGTHJ, 
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3 136 1 RSS=NAM$C_MAXRSS); 

: 79 P 09 ; SXABPRO_INIT(RAB=OUTPUT_XAB, 

; 798 9 PRO=<RWED RW >); 

: 199 09 4 OUTPUT_XABLXABSL_UIC) = .UAF_BUFFERCUAFSL_UICI; 

: 801 9 

F} 4 0307 IF NOT SCREATE(FAB=OUTPUT_FAB) 

3 Hi $909 FILE_ERROR( 

; 805 0910 INPSMBS_FACILITY*16 + SHRS_OPENOUT + STSS$K_ERROR, 

; ‘4 0911 UTPUT_FAB 

; 4 0918 -OUTPUT_FABLFABSL_STSJ, .OUTPUT_FABLFABSL_STV}); 

; 809 0914 

; 810 Bat? IF NOT SCONNECT(RAB=O0UTPUT_RAB) 

: 811 916 THEN 

3 si¢ 0917 FILE_ERROR( 

; «81 0918 INPSMBS_FACILITY*16 + SHRS_OPENOUT + STSS$K_ERROR, 

; «B14 0919 OUTPUT_FAB, 

; «815 0920 -OUTPUT_RABCRABSL_STS], .OUTPUT_RABLRABSL_STV)); 

: Bie 033 

3 aig 44 § } Read the input stream into the command file until a JOB or EOJ command. 
: 820 b95¢ WHILE TRUE DO 

; 821 0926 BEGIN 

3 as¢ 0927 LOCAL 

; 82 0928 RECORD_LENGTH; ! Input record length 
> 824 $363 

; B25 0930 

3 559 933) Get the next record. If it is JOB or EOJ, we are finished. 
; 828 §938 IF NOT GET_RECORD() THEN EXITLOOP; 

: 829 0934 LURRENT COMMAND = IDENTIFY _COMMAND_VERB(FALSE, LINE_DESC); 
; 830 0935 IF .CURRENT_COMMAND EQL K_JOB OR .CUKRENT_COMMAND EGL K_EOQJ THEN EXITLOOP; 
; 831 0936 

3 S36 093, 

3 th 344 Trim trailing blanks if requested. 

; 835 0940 RECORD_LENGTH = . INPUT RABCRAB$W_RSZ); 

: 836 0941 IF NOT” .FLAGSCV_TRAILING_8LANKS) 

; 837 bk HEN 

; 3 9435 & BEGIN 

: 4 Ree 4 sateae  \ oan GTR 0 DO 

; 841 946 3 IF CHSRCHAR(.INPUT_RABCRABSL_RBFJ + .RECORD_LENGTH = 1) NEQ %C* ' 
; neg 094 5 THEN EXITLOOP; 

; «84 0948 5 RECORD_LENGTH = .RECORD_LENGTH - 1; 

: 44 949 & END; 

3 5 950 END; 

Be 

3 3 938 Copy the record to the output command file. 

; 850 955 OUTPUT _RABERABSW_RSI = .RECORD LENGTH: 

4 51 Bee OUTPUT_RABLRABSL_RBFJ =  INPUT_RABCRABSL_RBF J; 

: 52 95 4 IF NOT $PUT (RAB=OUTPUT_RAB) 
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3 3 9 THEN § 
: é 338 FILE_E ; 
3 5 + 4 INPshs FACILITY*16 + SHRS_WRITEERR + STSSK_ERROR, : 
; $ 36¢ OUTPUT -RABCRABSL_STS], .OUTPUT_RABLRABSL_STV]); : 
; 858 96 END; : 
; 59 964 3 
3 0 965 3 
; 86) My ; Close the output command file. : 
: He: 0965 if NOT SCLOSE (F AB=OUTPUT_FAB) | ; 
: Bes it FILE ERR ; 
: 866 0971 THESROS FACILITY“*16 + SHR$_CLOSEOUT + STSS$K_ERROR, ; 
; 867 Ba 76 OUTPUT_F 3 
; 868 0973 -OUTPUT_FABLFABSL_STSJ, .OUTPUT_FABLFABSL_STV); | : 
: 3f0 0975 ; 
3 a B38 Set up the user identification item. : 
3 He 0978 20 DCURSORCO, 0,32,0] = .UAF_BUFFERCUAFS$L_UIC); ; 
: 874 0979 Chany +34 F 
; 875 0980 | : 
: 876 0981 UAr ed ait tUAFér T SUSERNAME]. | ; 
: 877 098 pTtuRSOR(4,0, 3 
; 878 098 cHSMODE 3 
; 879 0984 FFERLUA 3 
: 880 0985 UAr “BOE RCUAFST TACCCNTI, ; 
; 881 0986 SOR[16,0,070]); : 
: 88 0987 20 “peuRponrse” 8.05 = .UAF_BUFFERCUAF$B_PRIJ; ; 
eB ; 
: B85 0990 ¢ | Add the remaining items and finish the List. | : 
; 887 099 Q_ICURSORCO.0 16, £33 = NANSS DVI + FIDSC LENGTH + FIDSC_LENGTH; : 
; 099 Q71 CURSOR 2,0 = SJC$ FILE Gal DENT I® FCAT ION : 
; 889 0994 Q_Icu ORL’ .0 °° 32:9 = GuTPOT _NARCNAMST_DVIJ; ; 
: 8 0995 5 OTICURSOREB.0.39.03 = OF | : 
: 91 0996 $ 
; 89 0997 2 Q_ICURSOR[12,0 “1 6,0) = 25; : 
: 89 0998 Q71 CURSOR 16,0 0.1 6,0] = de USER_IDENTIFICATION; ; 
3; 894 0999 2 Q-ICURSOR[16,0,3 0 = ,Q_DCURSOR; : 
: 895 1000 Q- 1 CURSOR 8° 0.32.0) = 0; : 
3 3 1908 Q_ICURSOR(24,0,32,0] = 0; : 
: 898 100 : 
; 899 1008 

3 44 : 0S Submit the output command file. 

: 90 P 1909 STATUS_2 = $SNDJBCW 

: 90 P 1008 FURCS SCs NENTER, FILE, 

: 904 P 1009 

; 905 1010 cay BUFFER) 

: 906 1011 IF .STATUS ful'S" STATUS _2 = .10SB; 

; 90 1 i IF NOT .S 

; 908 101 iMeN 

: 909 1014 SIGNAL (INPSMBS_ENTFIL, 0, .STATUS_2); 
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Terminate if this was end of file. 
if NOT 
FALSE 


48 43 54 41 42 246 53 59 53 
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50 4E 49 43 41 21 43 
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- INPUT_RABCRABSL_STS] THEN RETURN TRUE; 
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LONG 8 
"ADDRESS P.ABX 


OUTPUT_FAB 


urp XAB 

PARSE FUE. PARSE_AFTER 

-CHA RRACTERT oi TCs 
“FILENAME, ppARse CPUT IME 
F yRu ue Ae € [0G 
Sinan SrER 
RITER sense “PRIORITY 
ORKING. SET 
P PARSE we _AND_LOG_FILE 
J 


SYS$ TE, SYSSP 
BCW 


Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 
SRMS PTR, R6 

SAMS FIR, RG, 
PROCESSING LOOP HANDLER, 
ITEM_BUFFER, at URSO 
DATA BUFFER. Q7DCU RSOR 

#<<<TNPSMBS_ FACIL TONG>!4488>!4>, - 


ES 
VALUE DESC, Q VALUE_DESC 
URRERT _COMMARD , “17 


#0, T_RECORD 
RO, és 
SP 

tsp) 


(FP) 


re 
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INPS Input symbiont 1e=88b-1880 93:98:98 sonar : 
-0 TIFY_COMMAND_V i 
me oQ00v CF Of FB pants mout nS: LURRENT COMMAND 0677 ; 
eke oes DE 11 0004C MOVZWL INPUT RAB+34, JOB_LENGTH z R86 
PES «DS OOBRE CR 38 00086 ROVERS JOBCLENGTH. BINPUTCRNSSCO, JOB_BUFFER ; se | 
ibe BB SR ling OT Oia 88) | 
Ov RL -(SP 7 } : 
F BF 0008 PUSHAB INPSMBCLD 
00006 CF 9F 00069 ay NE_DESC 
06 00 Oe Fe HOB, Eaetee AMET PA Sex panse beets 9 
a ee oe oe jew] 
vanes oo O24 «SG OF 00082 CALLS #1, “LIBSSFREE1_DD ; 0700 
eesuneee o2ce £6 9F 00080 CALLS. 1, CIBSSFREE1_DD ; 0701 
setesteetiad an | eS Bo PUSHAB USERNAME DESC ~ 6702 
01 FB 0009 CALLS, #1, LIBSSFREET. ; 070 ; 
pooonon[s 9 cane «6 OF 00K CALLS, #1, LIBSSEREE1_DD ; 0707 
1 FB QO0OA7 CALLS Ue LIB Dest 070 
oooo0000s 00 cg oF O00KE PUSHAB USERNAM : 
35 PB b0BS CALLS Wee CLISGET VALUE. : 0708 : 
000000006 0 02 FB 0008 CMP USERNAME. DESC, ; 
or 0204 $8 FB doors BLEQU ; 0710 
Ce $F aout? PUSHAB USERNAME_DESC 
0206 Ot bb o00Cs PUSHL #1 sais 
D 000C8 PUSHL #INPSMBS 
mpenagint) SR CALLS #3, LIBSSIGNAL : 0715 ; 
000000006 00 Se Bs PUSHAB P-ABS : : 
OFFS OBE Ok O09 MOVZBL #134, -(SP) 
’ Det? $F 00000 PUSHAB D_QUEUE ates ; ; 
oooos ce Ok Po BpOE RUE: Re<cINPSHBSCEREILITYA16>+4906>04>, - 3 O76 : 
59 00000000" BF DO 000E6 O<HESSAGE Soret 
10 AZ 9F QO0ED CALLS, #1. PARSE_AFTER : 0726 ; 
01 FB OOOFO SUSHAB D_ CHARACTERISTICS ; : 
coos ce FENG tT asric pa 
wore er 12 bb OO0RD PUSHL a8 3 
11 DD QOOFF ; 
34 A? OF 319) lary r co ARSE _FILENAME : 0736 : 
00006 CF 93 OB a 3 PUSH #28 
13 DD 00108 TIME ; ; 
46 AZ 9F 00100 CALLS. #3) PARSE _CPUTINE  o741 ; 
00006 CF 3 ES 113 PUSHL # pe | 
OM oF HHA CALLS. m2 PARSE_IF_TRUE : 0746, ; 
00006 ¢F or $F SR BR ROVZBL { peor 
*% PB é CALLS 4 PARSE _IF _TRUE ; 0751 : 

OC AY OF OO1¢E CALLS #2. PARSE_IF TRUE ; 

00006 CF 02 FB 
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SE_NAME 
VA YE _DESe Q_VALUE_DESC 
wi =(SP5 


NOTIFY 
#2, PARSE_IF_TRUE 

D PARAMETERS 

#1, PARSE_PARAMETERS 
D_ PRINTER 


#T, PARSE_PRINTER 
D_ PRIORITY 


#T, PARSE PRIORITY 
#138, -(SP) 

D_RESTART 

#2, PARSE_IF_TRUE 

D_ TRAILING BLANKS 

at, CLISPRESENT 

RO. #2, #1, FLAGS 
#152, -(sPs 
D_WSOEFAULT 

#3, PARSE_WORKING_SET 
#154, -(SP) 

#153. -(SP) 
D_WSEXTENT 

#3, PARSE_WORKING_SET 
#126, -(SP) 

#155. =-(SP) 

D_WSQUOTA 

#3, PARSE WORKING _SET 
#0. GET_RECORD 

RO, 5$ 

20$ 

SP 


ra 
#2, IDENTIFY_COMMAND_VERB 
RO. CURRENT COMMAND 
CURRENT_COMMAND, #5 

# INPSMBS MISSPASS 

“1 L1B$ 


IGNAL 
GET_LINE_CONTINUATION 


#2, CLISGET VALU 
PASSWORD_DESC, ie 


PASSWORD _DESC 
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INPSMB Input symbiont 16-Sep-1984 01:43: AX-11 Bliss-32 V4.0-74 Page 28 
04-000 eet 1ergee=}8Re Pb:G8:58 | HMe beek ies 783 ue O50 . 3 
1 0D PUSHL #1 ; 
000000006 8F DD PUSHL u |NPSMBS INVPASS : 
0000 0006 00 3 FB CALLS #3, LIBSSIGNAL ; 
11 CE 584 BF 3C 40 7$ MOVZ2WL #1412, UAF_DESC > 0834 
1c. 1 0 CE 9E 0004 MOVAB_ UAF_BUFFER> UAF_DESC+4 : 0835 
11 ce F 0024 PUSHAB UAF~DESC + 0836 | 
\ a 3 PUSHAB PASSWORD_DESC F 
D4 C6 F PUSHAB USERNAME DESC ; 
000000006 40 F A CALLS #3, LGI VALIDATE ; 
. BS 0056. Bugs stArUs.}. 98 : B39 
13 19 00 66 BLSS t F 
3 DD 0026 PUSHL  STATUS_1 + 0840 
E D4 0026A CLRL.  =(SP) : 
000000006 BF DD 00 $ PUSHL # INPSMBS OPENUAF : 
000000006 00 ; 4 3 f CALLS +e LIBSSIGNAL s 
000000006 8F DD 00278 8$: PUSHL #INPSMB$_USERVAL + 0841 
000000006 00 1 FB 00 81 CALLS #1, LIBS$SIGNAL ; 
10 iz oem ge BA § BS ~ BOVIBL os ve Sc ; OBe6 
14 AE 18 AE 9E $8 36 OV DNA_BUFFER, DNA_DESC+4 > 0851 
0184 CE 9F 0029 PUSHAB UAF BUF 48 + 0857 
0198 CE 9F 0029B PUSHAB UAF~BUFFER+116 : 
a : 
03E0 5 9F 00 4 PUSHAB P.ABU 3 
000000006 00 05 FB 002A9 CALLS #5, SYSSFAO ; 
000000006 8F DD 00280 PUSHL #INPSMB$_INVLOGFIL + 0864 
o2ce C6 OF 00989 PUSHAB LOG"FILE_DESC - 
ogee 6 OF 00960 PUSHAB NAME DESC ; 
0000G CF 4 FB 002C1 CALLS #4, PARSE_NAME_AND_LOG_FILE 3 
10 AE FF 8F 9A 002C6 10$: MOVZBL #255, DNAWDESC + 0870 
14 AE 18 AE 9E 002CB MOVAB_ DNA_BUFFER, DNA_DESC+4 : 0871 
01B4 CE 9F 00200 PUSHAB UAF ~BUFFER+148 + 0877 
0198 CE 9F 00204 PUSHAB UAF ~BUFFER+116 ; 
18 AE 9F 00208 PUSHAB DNA~DESC ; 
ost MF BeBe RURIAR. BMGuES : 
000000006 00 05 FB 00 t CALLS #5, SYSSFA ; 
0050 «BF 00 6E 00 2c 6 c9 movcS #0, (SP), #0, #80, $RMS_PTR + 0893 
66 5003 BF 80 0 F1 MOV 420483 $RMS_PTR : 
04 Ab 40 BF 9A 002F6 MOVZBL #64, SRMS_PTR+4 ; 
16 Ab 1 90 002FB MOVE #1, S$RMS_PTR+22 : 
1D Ab 0200 &8F Be 6 FF MOVW 512, $RAS_PTR+29 F 
1F Ab 2 05 MOVB 2, $RMS_PTR+31 ; 
24 «AG 00F4 C6 9E 00 MOVAB OUTPUT_XAB, $RMS_PTR+36 : 
8 Ab 9% (6 9 OF MOVAB OUTPUT"NAM, $RMS~PTR+40 : 
C Ab 200 (6 D 15 MOVL AME DESC+4, SRMS_PTR+44 : | 
0 Ab 4 AE 18 MOVL DNA_DESC+4, $RMS_PTR+48 ; | 
34 Ab O2zcc 6 MOVB NAME DESC, SRMS PIRs2 ; 
5 Ab 1 AE 6 MOVB. DNA_DESC, $RMS_PTR+5 ; 
0044 8F 00 6€ - 00 ¢ : MOVCS #0,7~(SP), #0, #68, S$RMS_PTR ; 0896 
50 Ab 4401 BF B0 MOVW #17409, SRMS_PTR : | 
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greg 12288-1382 93 :43°82 INPSMB.SRCJINPSMB.B32; 
code Af 07H GENE SV Rt ES EIR orca 
0060 &F 00 6E on 09 ¢ ‘3 MOVC 70, (SP), #0, #98, SRMS_PTR 
0094 6 6002 i 0 0034F MOVW #24578, $RMS_PTR 
096 C6 1 BE 26 MNEGB #1, $RMS _PTRF2 
098 6 014¢ C6 i MOVAB output RSA, SRMS_PTR+4 
O9F C6 1 BE 0036 MNEGB #1, $RAS PTR+10 
OAD C6 014¢ c% E 0036 MOV oufPUT RSA, $RMS_PTR+12 
0058 BF 00 s4 Re 0 2¢ # movcS #0, (SP), #0, #88, SRMS_PTR 
00F4 6 oBi3 er B 6 7 MOVW 423547, $RMS_PTR 
‘ OOFC 6 FFO F B 7F MOVW #-256, SRMS_PTR+8 
0100 Cé 0144 gf DO 00 36 MOVL UAF _BUFFER+36, OUTPUT_XAB+12 
: DD 0038) PUSHL R 
000000006 90 gi FB 0 br CALLS #1, SYSSCREATE 
7E 08 A6 5 00399 MOVO  OUTPUT_FAB+8, -(SP) 
56 DD 00390 PUSHL R 
00000000« BF DD 0039F PUSHL #<<<INPSMB$_FACILITY@16>+4256>+2> 
0000v CF 04 FB O03A5 CALLS #4, FILE ERROR 
50 A6 9F OO3AA 11$:  PUSHAB OUTPUT RAB 
000000006 00 01 re 003AD CALLS #1, SYSSCONNECT 
11 50 : 00384 BLBS = R 
7E 58 Ab 7D 00387 MOVO § OUTPUT_RAB+8, -(SP) 
56 DD 00388 PUSHL R6 
00000000* 8F DD 0380 PUSHL &#<<<INPSMB$_FACILITY@16>+4256>+2> 
0000v CF 04 FB 003C 128: CALLS #4, FILE_ERROR 
0000v CF 00 FB 0038 13$: CALLS #0, GET_RECORD 
5E 50 €9 003CD BLBC = RO, «168 
5E DD 00 09 PUSHL SP 
7E D4 00 D CLRL. = (SP) 
0000v CF 02 FB 003D4 CALLS #2, IDENTIFY_COMMAND_VERB 
02E4 (6 50 DO 00309 MOVL RO, CURRENT COMMAND 
01 0264 (6 01 00306 CMPL § CURRENT_COMMAND, #1 
49 13 OO3E BEQL 16$ 
03 024 £6 D1 00 5 CMPL § CURRENT_COMMAND, #3 
42 13 OO3EA BEQL ssi 
51 FDDE C6 3C OO3EC MOVZWL INPUT_RAB+34, RECORD_LENGTH 
12 02a4 (6 08 FO O3F1 BBS w2, FCAGS, 15$ 
10 15 OO3F7 14$ BLEQ 
50 51 FDES C6 ci O3F9 ADDL3 INPUT_RAB+40, RECORD_LENGTH, RO 
20 FF AO 91 OO3FF CMPB Ss =1(ROJ, #32 
94 if 0403 BNEQ 15 
1 Dd? 004 DECL | RECORD_LENGTH 
FE 11 00407 BRB 14$ 
re Ab 1 80 0409 15$:  MOVW RECORD_LENGTH, OUTPUT_RAB+34 
78 =A FES 6 p 04 : MOVL _—« INPUT_RAB+40, OUTPUT_RAB+40 
0 Ad SF 0041 PUSHAB OUTPUT RAB 
000000006 00 gi FB 0416 CALLS ae SYSSPUT 
7E 58 Ab 3 04 MOVO OUTPUT_RAB+8, -(SP) 
6 DD 00424 PUSHL 
00000000 BF DD 00426 PUSHL  #<<<INPSMBS$_FACILITY@16>+4304>+2> 
5 11 0042¢ BRB 12$ 
56 DD 004 F 16$:  PUSHL R6 
000000006 00 01 FB 004 CALLS #1, SYSSCLOSE 
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14-Sep-1984 INPSMB.SRCJINPSMB.B32; ) 
11 50 £8 0437 BLES _—-RO, -178 : | 
7E 08 A6 7D 0043A MOVQ  OUTPUT_FAB+8, =(SP) : 0973. 
6 DD 004 : PUSHL R6 t 0970 
00000000" 8F DD 0044 PUSHL #<<<INPSMBS_FACILITY@16>+4184>+2> ; 0971) 
0000v ¢ 4 FB 00446 CALLS #4, FIL OR ; | 
6A 0144 448 17% MOVL.  UAF_BUFFER+36, (Q_DCURSOR) : 0978 
04 AA 0124 CE 45 MOVC 38° UAF_BUFFER+4; 4(Q_DCURSOR) : 0982 | 
10. AA 0154 CE 45 MOVC3 #32. UAF~BUFFER+52, 167 DCURSOR) : 986 
18 AA Oren 3 45€ MOVB UAF BUEEERSS16 4(Q_DCURSOR) 3; 0987. 
68 0027 oi F p 0464 MOVL #2555932, (Q_ICURSOR : 0992 
04 AB OOA8 C6 E 48 MOVAB  OQUTPUT_NAM+20, 4(Q_ICURSOR) + 099% 
0 AB OD 04 1 CLRL (Q 1COR R) : 0993 
OC AB 009600 F DO 00474 MOVL #9830425, 12(Q_ICURSOR) : 0997 
10 AB A b0 04 7¢ MOVL  Q_DCURSOR, 16(0_ICURSOR) ; 0999 
16 AB 7C 480 CLRO 20(0_I CURSOR) : 1000 
7E 7C 00483 CLRQ  =(SPY + 1010 
10 AE OF 0483 PUSHAB 10SB ; 
F800 ¢ 9 04 8 PUSHAB ITEM_BUFFER : 
7E 13 7D 0048C¢ MOV = #19, ~=(SP) : 
rE D4 0048F CLRL = = (SP) : 
000000006 00 FB 0491 CALLS #7, SYS$SNDJBCW : 
07 0 €9 00498 BLBC  STATUS.2, 18$ + 1011 
50 08 A 4 0498 MOVL 1088, STATUS 2 ; 
11 50 £8 0049F BLBS STATUS 2, 198 + 1012 
50 DD 004A2 188: PUSHL TATUS_ ; 1014 
7E D4 0044 CLRL. = =( SP) : 
000000006 8F DD OO4A6 PUSHL # INPSMBS ENTFIL ; 
000000006 00 03 FB ee, CALLS #3, LIBSSIGNAL 3 
04 FDOCS §=6C6 «£8 00483 19$:  BLBS INPUT _RAB+8, 218 + 1019 
50 01 DO 004B8 20$: MOVL #1, RO : 
04 00488 RET : 
50 04 004BC 21$:  CLRL RO ; 
04 004BE RET ; 


; Routine Size: 1215 bytes, Routine Base: CODE + 0410 
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ROUTINE GET_RECORD= 
tee 
' 


i FUNCTIONAL DESCRIPTION: 
} This routine gets the next record from the input stream. 


i INPUT PARAMETERS: 
NONE 


wn 


! IMPLICIT INPUTS: 
NONE 


WN —"OOONOUSWN—OOw 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


FAWNWIWWIwwwnoronorereononen) 
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ROUTINE VALUE: 
Completion status. 


SIDE EFFECTS: 
NONE 


ODOOOOOOOOOOOOODOOOOOOO 


940 


LOCAL 
STATUS; 


ff gh LASSE SECOND BUFFER) 
BEGIN 
! The second buffer had the pending read. Wait for it to complete 
! and examine the IOSB for status. Logically translate an EOF card 
to an EOJ command. 


SWAITFR(EFN=K_EFN_B); 
IF, ,,cARD_10SB_8L0] EQL SS$_ENDOFFILE 


PAPA 
AWEWR OO 


re ANANANAN ANS | 
Wwt—C 0@a~n 


RSottots 


BNO UE WN CO OONOUEwh— 


BEGIN 
INPUT_RABLRABSL_STS? = SS$_NORMAL; 
INPUT“RABLRABSW_RS?) = XCHARCOUNT(' 
INPUT~RABLRABSL FOF) = UPLIT BYTE(' 


EN 
ELSE IF NOT .CARD_1058_8(0) 
THEN 
FILE_ERROR( 
TNPSMB$_FACILITY*16 + SHRS_READERR + STSSK_SEVERE, 


INPUT _ 
. CARD~10S8_B(0)) 


PO 


EOQJ'); 
EQJ"); 


Bee Be Oe Oe Oe Oe Oe Be Be Oe Oe Ge Se Se Be Oe HSH Se Oe SH He SH Oe Oe Oe Oe Oe OH Oe Oe Oe Oe OH Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Oe Os Oe ae Oe Oe SE Se eee 

oO 

= 

io 
a ee a ee a el el a ee ee ee el el el el el el el el el el el el el el el el el el ce el el el el el el el el eel el el 
BBB BB BT BB BB BB BB BFA) at sk i tk a th 

— 
n" 
ze 

oz 

a4 

P2] 

7 

' 

co 

=x 

z 

mn 

— 

za 

mm 

o 

Oo 


SNS NNO 


dD 8 
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v04-000 . 4 13-8007 be 03:43 °82 INPSMB. SRC TINPSMB.B32; ° (6) vO 
; 975 1079 4 ELSE 
3 378 1080 BEGIN 
; 97 1081 INPUT_RABCRABSL_STS] = .CARD_10SB_B8 O4: 
; 978 1 : INPUT-RABCLRABSW_RSZ) = .CARD-10SB-B[1); 
; 979 10 INPUT-RABCRABSL_RBF) = INPUT“UBF 7 80; 
; 980 1084 4 END; 
; #981 1085 4 
3 oR6 10 § 4 
:; 98 10 4 ' Start a read in the first buffer. 
; 4984 1088 4 ! 
; #985 P 1089 4 STATUS = $010( 
: 28 & 4 4 FN=K_EFN_A 
; 98 P1091 4 FUNC=T0$_READLBLK, 
; «4988 e 1036 4 CHAN=.CARD_CHANNEL, ; 
; 989 P1093 4 10SB=CARD_TOSB_A, 
; 990 P1094 4 P1=INPUT_OBF, 
; 991 1095 4 4 0); 
: 99 1096 4 FLAGSCV_SECOND_BUFFER] = FALSE; 
; 99 1097 4 END 
; 994 1098 3 ELSE 
; 995 1099 4 BEGIN 
; 996 1100 4 
; 997 1101 4 ! The first buffer had the pending read. Wait for it to complete 
; 998 1158 4 ! and examine the IOSB for status. Logically translate an EOF card 
; 999 1103 4 ! to an EQJ command. 
; 1000 1104 4 ' 
; 1001 1105 4 SWAITFR(EFN=K_EFN_A); 
: 1008 1106 4 IF .CARD_IOSB-ACOJ EQL SS$_ENDOFFILE 
; 100 1107 4 THEN 
3; 1004 1108 § BEGIN 
; 1005 1109 § INPUT_RABCRABSL_STS) = SS$_NORMAL; | 
> 1006 1110 3 INPUT-RABCRABS$W_RSZJ = XCHARCOUNT('S EQJ'); 
; 1007 1111 INPUT_RABCRABSL_RBFJ = UPLIT BYTE('S EOJ"); 
; 1008 1116 5 EN 
; 1009 111 4 ELSE IF NOT .CARD_1I0SB_A[0] 
; 1010 1114 4 
3 1011 1115 4 FILE_ERROR( 
3 ols 1116 4 INPSMBS_FACILITY*16 + SHRS_READERR + STSSK_SEVERE, 
; 101 W17 4 INPUT_F 
: 1014 1118 4 . CARD~10S8_AC0}) 
; 1015 1119 4 ELS 
3; 1016 1120 5 BEGIN 
: 1017 1121 § INPUT_RABCRABSL_STS] = CARD. 1088 ALO}: 
: isis 1158 é INPUT_RABCRABSW_RSZ] = .CARD_IOSB_AC1]; 
; 101 11 INPUT~RABLRABSL_RBF) = INPUT~UBF; 
We = 
: 10 1126 4 
3; 10 5 1127 4 ' Start a read in the second buffer. 
: 1024 1128 4 : 
; 1025 P1129 4 STATUS = $Qj0( 
; 10 $ P1130 4 EFN=K_EFN B 
: 10 P1131 4 FUNC=T0$_READLBLK, 
: 1028 P 11 ¢ 4 CHAN=.CARD_CHANNEL, 
3 9 P 11 4 10SB=CARD JosB_8 
: 1030 P1134 4 P= INPU Oar +786, 
: 1031 1135 4 = 3 
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ELAGSCV_SECOND_SUFFERI = TRUE; 


Check status of the $Q10. 
if NOT .STATUS 


FILE_E 
TNESRS FACILITY™ 16 + SHRS_READERR + STSS$K_SEVERE, 


STATOS) | 


SEEN 88 


—O0O® 


Note that an input operation has completed, for the periodic timer. 
INPUT COMPLETIONS = .INPUT_COMPLETIONS + 1; 


m 
a 
“” 
m 


BEGIN 
IF NOT $GET(RAB=INPUT_RAB) 
IF_.INPUT_RABCRABSL_STS] NEQ RMS$_EOF 


SSSSSSSSSSSSSSSSSSSSSOP ROSS SOOSS 
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FILE_ERR 
TNPsAas FACILITY*16 + SHRS_READERR + STSSK_SEVERE, 
a NINPUT _RABCRABSL_STS], .INPUT_RABLRABSL_STV]); 
. INPUT_RABCRABSL_STSJ 
064 END; | 
20 24 OO8CF P.ABY: .ASCII \$ EOQU\ : 
20 24 008D4 P.ABZ: ASCII \$ EQU\ : 


-EXTRN SYSSWAITFR, SYSSGET 
003C 00000 GET_RECORD: | 
ORD 


oW Save R2Z,R3,R4,R5 : 1022 
00 9€ 9002 MOVAB SYS$QI0. R5 ; 
cf 9E 000 MOVAB FILE ERROR, R4 : 
0 9€ 0000 MOVAB SYSSOAITER R3 : | 
CF 9E 0001 MOVAB INPUT RAB+S, R : 
Ag BS QOO1A TSTW CARD CHANNEL 3: 1050 | 
03 1 G01D BNEQ ~=s'1$ : 
6 31 0001F BRW 11$ : 
1 £&1 000 2 1$: BBC #1, FLAGS, 5$ : 1057 
é DD 000 PUSHL i : 1065 
FB 0 A CALLS #1, SYSSWAITFR : 
£3 3C MOVZ2WL CARD 9 _B, RO > 1066 
PH ses Be : 
6 6 0039 MOVL #1, INPUT_RAB+8 : 1069 


F 8B | 
INPSMB Input symbiont 16-Sep-1984 01:43: AX-11 Bliss-32 V4.0-74 Page 34. 
v04=000 12780871383 03:48 °82 INPSMB. SRCJINPSMB.B32; . (6) | 
1A OA 05 B80 0003 MOVW #5, INPUT_RAB+34 ; 1070. ; 
20 A B3 CAF ee Sf? MOVAB P.ABY, INPUT_RAB+40 : 1999. ; 
: 1 904 BRB A : 1 ¢ ; 
10 E8 00047 2$: BLBS = RO, 38 : 1073) ; 
9 BD 4A PUSHL R : 1078 ; 
AB A2 9F 0004C PUSHAB INPUT_FAB + 1075) ; 
00000000" 8F oD Out PUSHL &#<<<IRPSMBS$_FACILITY@16>+4272>+4> t 1076 F 
64 3 FB 00055 CALLS #3, FILE_ERROR : | ; 
Fo 11 58 BRB 43 + 1075 | : 
6 06 2A 3$: MOVL RO INPUT _RAB+B + 1081 
1A OA QuF2 C 0 MOVW  CARD_IOSB Bs , INPUT_RAB+34 : 1082 
20 A 1EC § E 444 MOVAB INPUT_UBF#80, INPUT_RAB+40 : 108 
— 7C¢ 4$ CLRQ  =(SP) + 1095 
7E 7C 00068 CLRQ (SP) : 
7E 50 BF OA 90060 MOVZBL #80, -(SP) : 
019¢ ce 9F 00071 PUSHAB INPUT_UBF : 
: 7C 90073 CLRQ  <=(SP : | 
04E8 5 9F 00077 PUSHAB CARD_IOSB_A ; 
1 BD 00078 PUSHL #33 : | 
7E AG A2 3C 00070 MOVZWL CARD_CHANNEL, -(SP) : 
01 DD 00081 PUSHL : 
65 OC FB 00083 CALLS #12, SYS$QI0 F | 
04€0 (2 02 8A 00086 BICB2 #2, FLAGS + 1096 
64 11 0008B BRB 9$ : 105? 
01 DD 0008D 5$ PUSHL #1 + 1105 
$3 owes «fo SP Bones movbaL CARD Tose a. RO E 1106] 
0870 8F 50 81 $0999 CMPW ORO, 725607 : | 
OF 12 0009¢ BNEQ : | 
62 01 00 0009E MOVL #1, INPUT_RAB+8 + 1109 | 
1A A2 05 B0 000A1 MOVW #5, INPUT~RAB+34 + 1110 
20 A2 FF5S2 CF 9E OO0AS MOVAB P.ABZ, INPUT_RAB+40 +1111 
22 11 OOOAB BRB a > 1106 
10 50 £8 OOOAD 6$: BLBS RO, 7$ + 1113 
50 DD 00080 PUSHL RO : 1118 
AS A2 OF 00082 PUSHAB INPUT_FAB + 1115 
00000000* 8F DD 443 PUSHL #<<<INPSMB$_FACILITY@16>#4272>+4> : 1116 
64 03 FB 0008B CALLS #3, FILE_ERROR : 
OF 11 0008 8R + 1115 
62 0 DO 000CO 7s: MOVL RO, INPUT_RAB+8 + 1121 
1A A2 O4EA C2 BO 000C MOVW § CARD_IOSB7A+2, INPUT_RAB+34 ; 19¢ 
20 Ae 019¢ ce 9E 000C9 MOVAB INPUT_UBF> INPUT_RAB?40 : 11 
E 7C OOOCF 8$: CLRQ  =(SP) + 1135 
7E 7C 6 D cLRQ 5 {sP) ; 
7E 50 8F 9A 0000 MOVZBL #80, -(SP) : 
O1EC Ce 9F 000D PUSHAB INPUT_UBF +80 : | 
: 7C 000DB CLRQ = =(SP ; 
04F0 C2 9F 000DD PUSHAB CARD_10SB_B ; 
21 pp 00E1 PUSHL @# F | 
7E AG Ag C 00 ES MOVZWL CARD_CHANNEL, -(SP) ; | 
DD 6 E PUSHL @# : | 
65 C F £9 CALLS #12, SYS$QI0 : 
0460 (C2 8 6 EC BISB L > 1136 | 
OE 7 Fi 9$: BLBS STATUS, 10$ : 1142 
BD F4 PUSHL STATUS 3 114 
ag A2 9F Fé PUSHAB INPUT FAB > 1144 
00000000* 8F DD 000F PUSHL —#<<<INPSMBS_FACILITY@16>+4272>+4> ; 1145 
| 


b-sep-19 4 01:43:53 AX-11 Oi fog 3g V4.0-74 Page 


Input symbiont 1 35 l 
14-Sep-1984 INPSMB.SRCJINPSMB.B32; (6) vO 
64 03 FB OOOFF CALLS #3, FILE_ERROR 
04E4 ce D6 if 10$: INcL WBUT_CORPLET IONS 1158 
F8 A2 OF 00108 118 PUSHAB INPUT_RAB 115 
000000006 00 or FB a CALLS #1, SYSSGET . 
0001827A BF 35 D1 0011 CMPL — INPUT_RAB+8, #98938 
OF 13 0011C BEQL 12$ 
7E 62 7D OO11E MOVG = INPUT_RAB+8, (SP) 
AB A2 9F 0012" PUSHAB INPUT~F 
00000000* 8F DD 00124 PUSHL #&#<<<INPSMBS$_FACILITY816>+4272>+4> 
64 04 FB 001 A CALLS #4, FILE ERROR 
0 62 DO 0012D 12 MOVL INPUT_RAB+8, RO 1168 
04 00130 RET 


; Routine Size: 305 bytes, Routine Base: CODE + 08D9 
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K_NONE if no significant verb (false value). 
K_JOQB, K_EOJ, K_PASSWORD if recognized (true value). 


i SIDE EFFECTS: 
; NONE | 
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066 ROUTINE IDENTIFY COMMAND _VERB(PASSWORD,LINE_DESC)= 
068 rr 
069 i 
070 ! FUNCTIONAL DESCRIPTION: 
071 : his routine identifies a record that contains a valid JOB, EOJ, or 
Ore PASSWORD command verb. 
074 i INPUT PARAMETERS: 
075 ! PASSWORD - True if a PASSWORD command is valid. 
076 : LINE_DESC - Address of a quadword that receives a descriptor for 
077 ! the port ten of the record following the dollar sign, 
ore if the routine value is true. 
080 ! IMPLICIT INPUTS: 
st INPUT_RAB - Describes the current record. 
oBs ' OUTPUT PARAMETERS: 
084 ! NONE 
085 ! 
086 ! IMPLICIT OUTPUTS: 
087 ! NONE 
088 ! 
089 ROUTINE VALUE: 
' 
1 
' 
! 
' 
! 
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LINE_DESC: REF BBLOCK; ! Pointer to Line descriptor 
TPA_PARAM: apts ee: LENGTHO], ! TPARSE parameter block 
UPCASE_BUFFER: BBLOCKCZALLOCATION(INPUT_UBF) J; 

Initialize TPARSE parameter block. 

CHSFILL(O, ZALLOCATION(TPA_PARAM), TPA_PARAM); 

TPA_PARAMLTPASL_COUNT] = TPASK_COUNTO; 

TPA~PARAMLTPASL-STRINGCNT) = .INPUT_RABCRABSW_RSZ); 

TPA_PARAMLTPASL_STRINGPTR] = .INPUT_RABCRAB:_"RBFJ; 

Scan the Line for a leading dollar sign. 

If _LIBSTPARSE (TPA_PARAM, DOLLAR_STATES, DOLLAR_KEYS) 

BEGIN 


! Initialize the Line descriptor to describe the portion of the Line 
following the leading dollar sign. 
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POR RROPOROPOPOPOPOPOPOPRPOPONURIPINININIPIPIININ 8 at a a ss ss es 
POROMONONOND SS = SOOO OOOO000 000000000 000000000 000009 090909 INI NIN NNN NI 
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LINE_DESC(DSCS$W_LENGTH] = .TPA_PARAMCTPASL_STRINGCNTI; 
LINE-DESC DSC$B-DTYPE, = DSCSK“DTYPE_T; 
LINE-DESCCDSC$B-CLASS) = DSCSK-CLASS >; 
LINE-DESCCDSCSA_POINTER] = .TPK_PARAMLTPASL_STRINGPTRI; 


Upcase the remaining portion of the Line into the temporary buffer. 


MOVTC( 
TPA PARAMCTPASL_STRINGCNT], .TPA_PARAMCTPASL_STRINGPTRI, 
LIBSAB_UPCASE 
TPA_PARAMC TPASL STRINGCNT3 UPCASE_BUFFER); 

TPA_PARAMLTPASL_STRINGPTR] = UPCASE_BUFFER; 

} Scan the Line for an unabbreviated ‘JOB’. 

iF LIBSTPARSE(TPA_PARAM, JOB_STATES, JOB_KEYS) 
RETURN K_JOB; 


} Scan the Line for an unabbreviated ‘EO’. 
IF LIBSTPARSE(TPA_PARAM, EOJ_STATES, EQJ_KEYS) 
RETURN K_EOJ; 
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! If a PASSWORD command is valid, scan the Line for a possibly abbreviated 
*PASSWORD'. 
if .PASSWORD 
THEN 
2 4 GIN 
§ 4 TPA_PARAMCTPASV_ABBREV) = TRUE; 
: 4 CIBSTPARSE (TPA_PARAR, PASSWORD_STATES, PASSWORD_KEYS) 
; 4 RETURN K_PASSWORD; 
3 ND; 
3s : END; 
6 
é 56 5 K_NONE 
68 271 +1 END; 


007C 00000 IDENTIFY_COMMAND_VERB: 
~ WORD Save R2,R3,R4,R5,R6 
56 000000906 00 9€ 900 MOVAB LIBSTPARSE Rb 
E FF3C 6 CE. «(9E 000 MOVAB -196(SP), §P 
6E Dc 2c it MOVC #0, (SP), #0, #36, TPA_PARAM 


roe 


1169 | 


1211 


oz 


; Routine Size: 165 bytes, Routine Base: CODE + OAOA 
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INPS Input symbiont 16-Sep-1984 01:43: AX-11 Bliss-32 V4.0-74 Page 38 IN 
v04= 107388-1 382 93:48:82 INPSMB. SRC) INPSMB.B32; : B vO 
pc AD 08 p0 0001 MOV #8, TPA_PARAM ; 121 | ; 
E4 AD ' CF a 13 MOV OWL INPUT_RAB+34, TPA_PARAM+8 ; 1318 : 
EB AD an p if MOVL — INPUT-RAB+40, TPALPARAM+12 : 1214 : 
v CF OF 5 PUSHAB DOLLAR_KEYS ; 1219 ; 
O0OV CF 9F 9 PUSHAB DOLLAR™STATES : : 
DC AD OF D PUSHAB TPA_ : ; 
66 9 FB 9 CALLS #3, LIBSTPARSE : : 
: e BLBC = RO, : é 
08 AC D 6 MOVL LINE_DESC, RO ; 1226 : 
6 Fe AD 8B A MOVW TPA PARAM+8, (RO) : : 
0 AO 01 ’ 8F BO O003E MOVW #270, 2(RO) ; 1227 : 
4 Ad EB AD B0 0 4 MOVL. TPA_PARAM+12, F 1 9 : 
000000006 00 00 —8 8D E4 AD 2E 00049 MOVTC A-PARAM+8, @TPA_PARAM+12, #0, - : 1234 : 
6E E4 AD 0094 LIBSAB_UPCASE, TPA_PARAM+8. UPCASE_BUFFER : 
E8 AD 6E 9E 00057 VAB_ _UPCASE~BUFFER, TPATPARAM+12 ; 1239 ; 
O000v CF 9F 00058 PUSHAB JOB_K > 1244 : 
0000v CF 9F 0005 PUSHAB JOB_STATES ; : 
DC AD 9F 00063 PUSHAB TPA-PARAM : ; 
66 03 FB 00066 CALLS #3, LIBSTPARSE ; 
04 0 €9 00069 BLBC ~=_-«aRRO,:*1$ : 
50 01 DO b906¢ MOVL #1, RO ; 1246 
04 0006F RET ; 
0000v CF 9F 00070 1$: PUSHAB EOJ_KEYS ; 1251 
0000v CF 9F 00074 PUSHAB EOJ"STATES : 
pc AD OF 00078 PUSHAB TPA~PARAM : 
66 03 FB 90078 CALLS #3, L IBSTPARSE : 
04 50 £9 O007E BLBC ~=s_« RO, o$ ; 
50 03 DO 00081 MOVL #3, RO ; 1253 
04 00084 RET : 
19 04 AC E9 0085 2$: LBC_ PASSWORD, 3$ : 1259 
EO AD 02 88 00089 BISB2 #2, TPA_PARAM+4 : 126 
0000v CF 9F 9080 PUSHAB PASSWORD_KEYS : 126 
0000v CF 9F 00091 PUSHAB PASSWORD-STATES ; 
DC AD 9F 00095 PUSHAB TPA_PARAR : 
66 03 FB 00098 CALLS #3, | JBSTPARSE ; 
04 50 £9 00098 BLBC =—s_-aRO, 238 ; 
50 05 DO 9009E MOVL #5, R : 1265 
04 QO0A1 RET ; 
50 D4 O00A2 3$ CLRL = RO ; 1271 
04 O0OA4 RET ; 
| 
| 
| 
| 
| 
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ROUTINE GET_LINE_CONTINUATION(GET_STR,PROMPT_STR,OUT_LEN) = 


'o4¢ 


' 
FUNCTIONAL DESCRIPTION: 
This routine is the continuation routine for the CLISDCL_PARSE calls. 


INPUT PARAMETERS: 
As for LIBSGET_INPUT. 


IMPLICIT INPUTS: 
NONE 

OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 

ROUTINE VALUE: 


As for LIBSGET_INPUT. 
SIDE EFFECTS: 
NONE 


pesin \ 

Leth GET_STR: REF BBLOCK; ! Pointer to descriptor 
LINE DESC: BBLOCKCDSC$C_S_BLNI, ' Scratch descriptor for Line 
STATOS; ! Status return 


Get the next input Line, propagating errors to CLISDCL_PARSE. 


STATUS = GET_RECORD(); 
IF NOT .STATOS THEN RETURN .STATUS; 


' Ensure that the continuation Line is not a JOB command, so that an error in 
a@ previous Line cannot result in skipping a job. 


CURRENT COMMAND = IDENTIFY_COMMAND_VERB(FALSE, LINE DESC); 
IF .CURRENT_COMMAND EQL K_JOB THENTRETURN INPSMBS_INVCONT: 


' Copy the record back to DCL and set the return length. This routine makes 
! the simplifying assumptions that DCL passes a static string and always 
; passes three parameters. 


CHSCOPY< 
; INPUT _RABLRABSW_RSZ1, . INPUT_RABCRABSL_RBF J, 


GET STRODSC$W_LENGTH] 5GEI STREDSCSA_POINTERI); 
(,OUT_LER)<0,16> =". INPUT_RABLRABSW_RSZJ; 


kK 
1e=8ep-1986 92:35:95 LINPSMBCSRESINPSNB= B30; 


8 
Input symbiont 16-Sep-1984 94:43:83 AX-11 Oh feo 78 V4.0-74 


INPSMB.SRCJINPSMB.B32; 
: 1227 1329 
: 1228 1330 
: : , } 1 Return success. 
: 1231 1 ‘ §S$_NORMAL 
: 1232 1334 7 END? 
003C 00000 GET_LINE - CONTINUATION: 
WORD ve R2,R3,R4,R5 
SE 08 ¢2 00002 SUBL2 it SP 
FE20 cf 00 FB 9900 CALLS «GET _RECORD 
5 E9 OOO0A BLBC SrA , 2s 
3 DD 9000 PUSHL 
D4 O000F CLRL 
FFGS CF Q FB 0011 CALLS ae. 1 IDENT LEY 2 GOMMAND_ VERB 
0000" -.CF DO 00016 MOVL URRENT_ COMMAND 
01 0000' oe D4 01 CMPL CURRENT py #1 
50 000000006 &F 06 00 MOVL HINPSMBS. INVCONT, RO 
50 04 AC 00 00 A 1$: MOVL.  GET_S 
60 20 0000" OF 0090" cf C 00 : MOVCS iNeot TRkas 3s, @INPUT_RAB+40, #32, 
0c Bc 0000' CF BO 00039 MOVW INPUT RAB+34, @OUT_LEN 
50 01 DO 0003F MOVL #1, RO 
04 00042 28: RET 


; Routine Size: 67 bytes, Routine Base: CODE + OAAF 
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H : ¢ } 5 ! ROUTINE TIMER_AST: NOVALUE= 

3 1 $ 1 s 1 44 

3} 1 8 1! 

: 1238 1 1 ! FUNCTIONAL DESCRIPTION: 

; 1239 1340 1! This routine is entered on the expiration of the periodic timer to 
3; 1240 1341 1! determine if any input operations have completed in that interval, 
: ; $3 : tg ! and to exit the symbiont if appropriate. 

3 } rk 1344 1 ! INPUT PARAMETERS: 

3 : te : te : Standard AST routine parameters (not used). 

3 3 ‘3 1347 1°! IMPLICIT INPUTS: 

: 124 1348 1! NONE 

3; 1248 1349 1! 

3 1249 1350 1 ! OUTPUT PARAMETERS: 

; 1250 1351 1! NONE 

: 1251 1 26 1! 

3 1626 1355 1°! IMPLICIT OUTPUTS: 

; 125 1354 1! NONE 

3 \S28 132? 1! 

3: 1255 1356 1 ! ROUTINE VALUE: 

; 1526 1322 1! NONE 

3; 125 1358 1! 

3 1528 1359 1 ! SIDE EFFECTS: 

: 1259 1360 1! NONE 

3; 1260 1361 1! 

3: 1261 1306 1 !e< 

3 1 o¢ 1365 1 

3 : o : rf: BEGIN 

3: 1265 1366 ! If there have been no input completions since the last expiration of the timer 
3 \¢0 ’ 44 and we are not processing a job, exit the symbiont. 

: 1508 \ $3 IF_.INPUT_COMPLETIONS EQL 0 AND .OUTPUT_FABCFABSW_IFI} EQL 0 
3: 1270 137) SEXIT(CODE=SS$_NORMAL) ; 

: 1271 1 i 

3 ¥ i 137 

3 127 EL ' Set up the next interval. 

3 is?e 1375 ‘ 

3: 1275 1378 INPUT COMPLETIONS = 0; 

3 1276 137 SSETIAR(DAYTIM=PERIODIC_INTERVAL, ASTADR=TIMER_AST); 

3: 1277 1378 1 END; 


~-EXTRN SYSSEXIT 
0000 00000 TIMER_AST: 


WORD Save nothing 
0000° CF 05 00002 TSTL INPUT_COMPLET IONS 
OF 1 0 BNEQ 1$ 
0000° CF B 0 TSTW OUTPUT_FAB+2 
9 1 0c BNEQ 1$ 
1 OD 3 PUSHL #1 
000000006 1 FB 0001 CALLS #1, SYSSEXIT 


oC -- 


¥O6=000 


3; Routine Size: 


Input symbiont 


46 bytes, 


000000006 00 


Routine Base: 


a 


1$9eoct9Bs 01:48:38 


AX=11 Blisg-32 V4.0-74 
INPSMB.SRC W SMB. “835: f 


0000" CF D4 17 18: CLRL INPUT COMPLETIONS 

4 1B CLRL =(SP)~ 
EQ AF OF 1p PUSHAB TIMER AST 

F4EA cr F PUSHAB PERIODIC. INTERVAL 

D4 8 4 CLRL P) 
04 FB 6 CALLS #4, SYSSSETIMR 

04 00020 RET 

CODE + OAF2 


Page 4g 
i 1374 


1378 | 


pi SSSSSSSSSESSSSSSFSSFSSFSESeSeeS — ’ 


32 V4.0-74 Page 43. 
NP 


Input symbiont 18-se0-1984 91 :33'S2 AX=11 Oi het SMB B32: (10) | 


14-Sep-1 INPSMB. SRC 
ROUTINE FILE_ERROR(MESSAGE,FAB,EXTRA1,EXTRA2): NOVALUE= 
‘4 


' 
FUNCTIONAL DESCRIPTION: 
This routine signals a file-related message. 


INPUT PARAMETERS: 
MESSAGE = Message code for first pessene 
- Pointer to FAB, from which file name 
will be obtained 
Up to two additional input parameters are additional messages. 


IMPLICIT INPUTS: 
NONE 


OUTPUT PARAMETERS: 
NONE 


WWIAIWIAIAIWIA ANN NNN 
COOOOOOOODOODWDWDOOwWMwo-~, 
DNAVMEWN “OO ONAUS WO” 


MEAN M2 OOO NOAU EWN 0 OO NO UE WN O OONOUS WN 00 


IMPLICIT OUTPUTS: 
NONE 


9 
0 | 
0 ROUTINE VALUE: 
NONE 
0 SIDE EFFECTS: 
8 The messages are signalled. 
BEGIN 
MAP 
REF BBLOCK; ! Pointer to FAB 
LOCAL 
NAM: REF BBLOCK, ! Pointer to NAM block 
DESC: VECTOR(2), ' Descriptor for file name 
: VECTOR(6); ! Signal parameter List 


PARAM 
BUILTIN 

ACTUALCOUNT, 

CALLG; 


! Establish the file name to be printed. The resultant string, expanded 
: string. and filename string are examined in that order, and the first 
one that is not null is used. 


NAM = .FABCFABSL_NAM); 
LF, NAMCNANSB_RSCJ NEQ 0 


MEWPN —OOONO UW —O0@en 


.NAMCNAMSB_RSLJ; 
-NAMCNAMSL RSA]; 


D 

IF .NAMCNAM$B_ESLJ NEQ 0 
BEGIN 
DESCE 


OC 0Onoe 


WA. AIA POPOPOPIPONPOND 


BRAN 
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0) = .NAMCNAMS$B_ESL); 


shee IEAEISE CAAT WME aig] | 


CC1) = .NAMCNAMSL_ESA); 


WWW 


Initialize the signal parameter List. 


arameter count 
irst message code 
rr argument count 


peut ii “AESSAGE 
Lename descriptor 


P Rants 
IF raikaeln GEQ 3 


ee 
Sas Dee De © 


Increment parameter count 
Next message code 


pas = .PARAM([O) + 1; 
PARAM(4) = EXTRA; 


END 
IF ACTUALCOUNT GEO 4 


PUPP PVPS Be BS EE 


PAAAA AAI & 


Ww 


BEGIN 
PARAM(CO)] = .PARAM(CO]) + 1; Increment parameter count 


ag 5] = .EXTRA2; ! Next message code | 


ViFWN—OOONOU wR 


ROSS 


$ 


FAAPAAAAOD 
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37 
| 
3% 
3 7 
3 } 
3; 7 
3; 7 
3 7 
3} 
3% 
: 1 
3; 1 
3; 7 
3 7 
7 
3 7 
3; 7 
5 
3 3 
3; 7 
3 7 
3% 
3 7 
37 
3 7 
3; 7 
3 3 
sy 
3 7 
3 7 
3 7% 
3; 7 
3 7 


i kd ak tk ad td 8 td dw 8 dd 


ND; 
! Finally, signal the messages. 

CALLG(PARAM, LIBSSIGNAL); ) 
1 END; 


Ww 
ao 
on 


0000 00000 FILE_ERROR: 
WORD 


. Save nothing ; 1379 
5E 20 C2 0000 SUBL2 #32, SP ; 
51 08 AC DO 0000 MOVL FAB, R1 ; 1425 | 
50 28 Al 00 00009 MOVL  40(R1), NAM : 
03 ad 9 900 TSTB = 3(NAM) ; 1426 | 
oc 1 1 BEQL i$ ; 
18 AE 03 AO 9A O12 MOVZBL 3(NAM), DESC ; 1429 
1C AE 04 Aad DO 0001 OVL 4 (NAM), DESC+4 + 1430. 
1B 11 0001C BRB 3$ : 1426 | 
0B Ad 93 OO1E 1$: TSTB  —s-: 11 (NAM) : 1432 
0c 13 00021 BEQL @s ; 
18 AE 0B AO 9A 09 3 MOVZBL 11(NAM), DESC > 1435 
1 AE 0¢ ad 00 000 MOVL  12(NAM). DESC+4 ; 1436 
OA 11 00020 BRB 38 : 14 o 
18 AE 34 Al 9A F 2%: MOVZBL 52(R1), DESC + 1440 | 
1c AE C Al 00 MOVL  44(R1). DESC+4 : 144) | 
6 03 o9 9 38: MOVL #3, PARAM > 1447 
04 AE 04 AC dO 0003C MOVL MESSAGE, PARAM+4 £1448 | 


nooo —_————— - rc 


Input symbiont 


Bc 92:93:33 LiNesnassneSi 


APOOSrOOCCrO 
MOM Yoon yom 
onoo—-o070—o0uo7d 


roo t"0O87 no 


; Routine Size: 


PARAM+8 
beget PARAM+12 
(AP). #3 

PARAM 
EXTRA1, PARAM+16 
AP), #4 


PARAM 
EXTRA2, PARAM+20 
PARAM, LIBSSIGNAL 


oe He eS nd 


9 
INPSMB Input symbiont ibese -1984 01:43: AX-11 Bliss-32 V4.0- 
v04-000 . 1a-Sep-19 4 93:98 '82 INPSMB.SRCJINPSMB.B3 
: 1370 1668 1 ROUTINE MAIN_HANDLER_ACTION(MSG_DESC)= 
3; 1371 1470 1 
3: 1 if 1471 1 tee 
3; 157 1258 1! 
3 1374 1475 1 ! FUNCTIONAL DESCRIPTION: 
; 1375 1474 1! This is an action routine for the SPUTMSG that issues a signalled 
3; 137 1475 1! message to the system console. It writes the record to the operator 
: 137 1008 p via OPCOM or via broadcast. 
; 1378 1477 1! 
; 1579 1478 1 ! INPUT PARAMETERS: 
; } 30 +t 4 ! MSG_DESC - Descriptor for message. 
3 1 8: 1288 1 ! IMPLICIT INPUTS: 
s ¥ be {1 1! NONE 
3: 1384 14 1! 
; 1385 1484 1 ! OUTPUT PARAMETERS: 
: 1386 1485 1! NONE 
3; 1387 1o58 1! 
; 1388 1487 1 ! IMPLICIT OUTPUTS: 
: 1389 1488 1! NONE 
3; 1390 1489 1! 
3; 1391 1490 1 ! ROUTINE VALUE: 
; 1338 1e2) } FALSE, to signal SPUTMSG not to write the message. 
: 1394 1498 1 ! SIDE EFFECTS: 
3; 1395 1494 1! NONE 
3; 1396 1495 1! 
3; 1397 1496 1 !e= 
3; 1398 1497 1 
3; 1399 1498 BEGIN 
: 1400 1499 MAP 
: 1401 1500 MSG_DESC: REF BBLOCK; ! Descriptor for message text 
: ate 1501 LOCAL 
3; 140 1208 LENGTH: WORD, : henere of message, minimized 
3; 1404 150 OPC_BUFFER: BBLOCKCSBYTEOFFSETCOPCSL_MS_TEXT) + 152], 
3; 1405 1504 ! Buffer for OPCOM message 
3 1406 1505 OPC_DESC: VECTORC2), ! Descriptor for message buffer 
3: 1407 1506 STATUS; ' Status return 
3; 1408 1507 
3; 1409 1508 
3 rd 129) : Set up the OPCOM message buffer. 
3 oh 1511 OPC_BUFFERCOPCSB_MS_TYPE] = OPC$_RQ_RQST; 
3 141 131¢ OPC_BUFFERLOPCS$B_MS_TARGET] = PCSM-NM_CARDS; 
3 1416 151 OPC_BUFFERLOPCS$W_MS_STATUS] = 0; 
3 1415 1514 OPC_BUFFERLOPCSL_MS RQSTID] = 0; 
: 1416 1515 2 LENGTH = .MSG DESCCDSC$W_LENGTH); 
3 141 1516 IF .LENGTH GTRU 132 THEN LENGTH = 132; 
3; 1418 1517 CHSMOVE ( ‘ NGTH, .MSG_DESCCDSC$A_POINTER], OPC BUF FERCOPCSL_MS_TEXT]J); 
3: 1419 1518 OPC _pesct = SBYTEOFFSET(OPCSL_AS_TEXT) + LENGTH; 
: 1420 1519 OPC_DESCL1J = OPC_BUFFER; 
ots 
> 14 : 15 § ! Try to send the message by OPCOM. If this fails, send a broadcast to the 
3 i : 13 ? system console. 
3: 1426 1525 STATUS = SSNDOPR(MSGBUF=OPC_DESC); 


IN 


Th 
ME! 


F 9 
pape names: er8een 138s 93:98:58 YN ema Ses inesnd O30, 


INPS 
y04-000 
: 14 i ' $ IF NOT .STATUS OR .STATUS EQL OPC$_NOPERATOR 
3 14 9 8 SBRDCST(MSGBUF=.MSG_DESC, DEVNAM=$DESCRIPTOR(*_OPAO:')); 
: 1431 1530 
3 12 § : 1 Return FALSE, to signal SPUTMSG not to write the message. 
5 1434 1 ; FALSE 
+ 1435 1534 1 END; 
3A 30 41 50 4F SF OQOB8A P.ACB: .ASCII \_OPAO:\ 
99000006 0B90 P.ACA: .LONG 
000000 00894 “ADDRESS P.ACB 
.EXTRN SYSSSNDOPR, SYSSBRDCST 
OOFC 00000 MAIN_HANDLER_ACTION: 
WO Seve R2,R3,R4,R5,R6,R7 
5E FF6C CE 9€ 0000 OVAB =148(S 
08 AE 2003 8F %3C 0000 MOVZWL #8195, OPC_BUFFER 
OC AE D4 0000D CLRL  OPC_BUFFER?4 
57 04 AC D0 00010 MOVL MSG DESC, R7 
56 67 BO 00014 MOVW (R73, LENGTH 
0084 &F 56 B1 00017 CMPW so LENGTH, #132 
04 18 0001C BLEQU 1$ 
56 84 8F 9B OOOIE mOVZBl #132 
10 AE 04 87 56 @8 000 H 1$: MOVC3 LENGTH, a@4(R7), OPC_BUFFER+8 
6E 56 3C 000 MOVZWL LENGTH OPC_DESC 
6E 08 CO 00028 ADDL2 #8, OPC_D 
04 AE 08 AE SE 000 : MOV op¢_BUFFER, OPC_DESC+4 
7E 04 000 CLRL = =( SP 
06 AE 9F 00035 PUSHAB OPC_DESC 
000000006 00 98 FB 00038 CALLS #2, SYSSSNDOPR 
09 50 £9 0003F BLBC T ; 
00058061 = &F 50 D1 00042 CMPL STATUS. #360545 
10 12 00049 BNEQ 3$ 
20 DD 00048 2$: PUSHL #32 
E D4 90040 CLRL. = (SP) 
A6 AF OOF O004F PUSHAB P.ACA 
57 DD 90052 PUSHL 7 
000000006 00 04 FB 00054 CALLS #4, SYSSBRDCST 
0 b4 00098 3$: CLRL = RO 
4 0005 RET 


; Routine Size: 94 bytes, Routine Base: CODE + 0898 
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-EXTRN SYSSPUTMSG 
001C 00000 MAIN_HANDLER: 
WOR 


-WORD Save R2,R3,R4 
54 0000' CF 9E 0000 MOVAB PUTMSG ACTION_ROUTINE, R4 
33 000000006 90 H 9007 HOVA SYSSPUTMSG, R3 
50 AC AG 09 00011 MOVL §§JOB_LENGTH, RO 
3D 13 00015 BEQ: 486s 3$ 
10 AE 50 00 00017 MOVL RO, DESC 
14 AE BO Ad 9E 0001B MOVAB JOB_BUFFER, DESC+4 
10 AE 05 000 9 1$: TSTL DEST 
11. 15 000 LEG 3 
50 16 AE 10 AE ci 00025 ADDL3 DESC DESCs4, RO 
20 FF AO 91 000 B CMPB) = = 1(RO), #32 
05 if O02F BNEQ 2$ 
10 AE 07 00031 DECL DESC 
FA 11 00034 BRB 
6E 3 pO 00036 2s: MOVL #3, MSGVEC 
04 AE 000000006 ef D0 00059 MOVL #iNPShBS JOBCARD, MSGVEC +4 
OC AE 10 AE 9E 00045 MOVAB DESC, MSGVEC+12 
7E 7C OO04A CLRQ = = (SPS 
64 pd 04¢ PUSHL_ PUTMSG_ACTION_ROUTINE 
OC AE OF uF PUSHAB MSGV 
6% 04 FB 000 CALLS #4, SYSSPUTMSG 
5 04, AC D 4 3$: MOVL S16, R 
6 9 ¢ 8 SUBL2 #2, (Ro) 
— 7C 38 CLRO. 0 - (§P) 
4 0D D PUSHL PUTMSG_ACTION_ROUTINE 
: DD 0005F PUSHL R 
FB 61 CALLS #4, SYSSPUTMSG 
04 04 A2 00 2 64 cMPzV #0; #3, 4(R2), #4 
7E 4 A2 10000000 8F C $6 BISL3  #268435456, 4(R2), -(SP) 
000000006 1 FB CAL #1, SYSSEXIT 
0 01 p ore 4$ MOVL #1. RO 
4 0007F RET 


H 9 
INPSMB Input symbiont 16-Sep-1984 01:43: AX-11 Bliss-32 V4.0-74 
v04-000 ! 4 1328001 3h 93:98:32 INPSMB.SRCJINPSMB.B32; 
3: 1494 1 3 ! Adjust the signal parameter count to remave the PC and PSL, and call SPUTMSG 
3 1e2 : 87 to issue the message. 
; 1299 1595 SIGCCHFSL_SIG_ARGS] = .SIGCCHFSL_SIG_ARGS) = 2; 
; 1498 36 SPUTMSG(MSGVEC=.SIG, ACTRTN=.PUTASG_ACTION_ROUTINE); 
; 1300 1598 
3 : 3 1235 } If the exception was fatal, exit the image. Otherwise, continue. 
; 1308 1oR) if -BBLOCKCSIGCCHFSL_SIG_NAME], STSSV_SEVERITY] EQL STSS$K_SEVERE 
; i 1808 SEXIT(CODE=.SIGCCHFSL_SIG_NAME] OR STSSM_INHIB_MSG); 
: 150 1605 
; 1508 1606 SS$_CONTINUE 
; 1509 1607 1 END; 
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pa19be 12:35: 


»PSECT 
; TPASKEYSTO 


U.5: 8 
; TPASKEYST 
U.?7: ASCII 


.PSECT 

DOLLAR_STATES:: 

 TPASTYPE 
i bastanéet 
Soa, states: : 

; TPASTYPE 
U.8: WORD 

; TPASTARGET 
EQJ_STATES: : 
; TPASTYPE 


== = 2m 
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$2 AX=11 Bliss-32 V4.0-742 


INPSMB.SRCJINPSMB.B32; 1 


_LIBSKEY1$,NOWRT, SHR, 


eo 


ad 


-LIBSSTATES,NOWRT, SHR, 
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-1 


-LIBSKEYOS,NOWRT, SHR, 
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INPS Input symbiont 
v04=0 ah 
0000* 
0000* 
0000* 
: PSECT SUMMARY 
; Name Bytes 
: DATA 1408 NOVEC, WRT, RD 
: ODE 3190 NOVEC,NOWRT, RD 
>; LIBSKEYOS 10 NOVEC,NOWRT, RD 
> LIBSSTATES 16 NOVEC,NOWRT, RD 
> ILIBSKEY1$ 20 NOVEC.NOWRT, RD 
: Library Statistics 
beet Pn tee A ST ee: eames Symbols 
: File Total Loaded 
: _$255$DUA28: SYSLIBILIB.L32;1 18619 214 
; ~$255$DUA28:CSYSLIBJTPAMAC.L32;1 42 19 


; Information: 1 
; Warnings: 0 
; Errors: 


1Sosen-1986 01:45:25 


AxX-11 BLi ie973¢ v4.0- 35% 
MB.SRC é3 


INPS INPSMB.B3 
00000 DOLLAR_KEYS:: P 
00000 ; TPASKEYO 
U.1: -BLKB 0 
00000 JOB_KEYS:: 5 
00000 Tpasxevd , 
00000 ; ;TPASKEY 
v. ste ited 
$6094 EOJ “KEYS: : 
00004 ; STPASKEYO 
0.11: | .BLKB OO 
00004 ;TPASKEY 
v. 13: WORD <U.12-U.11> 
00006 -BLKB 2 
00008 PASSWORD_KEYS:: 
LKB O 
00008 ; TPASKEYO 
U.18: -BLKB 0 
00008 ; TPASKEY 
U.20: » WORD <U.19-U.18> 
-EXTRN LIBSSIGNAL 
Attributes 
»NOEXE,NOSHR, LCL, REL, poetgeeioa bEorvag b ot 4 
» EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
- EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
» EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
- EXE, SHR, LCL, REL, CON, PIC,ALIGN(1) 
ecccecce Pages Processing 
Percent Mapped Time 
1 1000 00:01.9 
45 14 00:00.2 
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COMMAND QUALIFIERS 
BLISS/CHECK=(F IELD, INITIAL,OPTIMIZE)/LIS=LIS$: INPSMB/OBJ=OBJ$: INPSMB MSRC$: INPSMB/UPDATE=(ENHS: INPSMB) 
2736 i + 1908 data bytes 


; Lexemes/CPU-Min: 3 


poeety peeet 411 ast 


; Compilation Complete 
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